Animasi Text pada MS Word 2007


Fitur untuk membuat animasi text pada MS word 2003 pada 2007 fitur tersebut di hilangkan. lalu bagaimana cara untuk membuat animasi text pada ms word 2007 ?. berikut ini adalah step by step caranya :

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.

Berikan Komentar yang bermanfaat dan sehat. Conversion Conversion Emoticon Emoticon