1. Buka Menu Developer -> Visual Basic
2.Di Project (NamaFileAnda), klik "This Document"
3. Pastekan Code berikut di ThisDocument (Code)
Sub AnimateFont()
Dim sAnimation As StringIf Len(Selection.Range) = 0 Then MsgBox "Select text first!", vbCritical, "No Text Selected" Exit SubEnd IfsAnimation = InputBox("Which animation? Enter the number: " & vbCr & _
" 1. Blinking Background" & vbCr & _
" 2. Las Vegas Lights" & vbCr & _
" 3. Marching Black Ants" & vbCr & _
" 4. Marching Red Ants" & vbCr & _
" 5. Shimmer" & vbCr & _
" 6. Sparkle Text" & vbCr & _
" 0. None", "Font animation")
Select Case sAnimation
Case 1: Selection.Font.Animation = wdAnimationBlinkingBackground
Case 2: Selection.Font.Animation = wdAnimationLasVegasLights
Case 3: Selection.Font.Animation = wdAnimationMarchingBlackAnts
Case 4: Selection.Font.Animation = wdAnimationMarchingRedAnts
Case 5: Selection.Font.Animation = wdAnimationShimmer
Case 6: Selection.Font.Animation = wdAnimationSparkleText
Case 0: Selection.Font.Animation = wdAnimationNone
Case Else:
End SelectEnd Sub
4. Sekarang balik lagi ke lembaran kerja, lalu buat sebuah tulisan, pada contoh " h4nk.blogspot.co.id "
5. Blok Tulisan yang akan dibuatkan animasinya, lalu tekan "Alt + F8 "
6. Akan muncul Dialog box, lalu masukan nilai jenis animasi yang akan di tampilkan.
7. Lihat hasil dari animasi tersebut.
0 Komentar
Berikan Komentar yang bermanfaat dan sehat.