Membuat animation text di Word 2010

Pernah membuat text animation dengan word 2003 kan? nah pada office 2007 dan 2010 fitur tersebut sebenarnya masih bisa dijalankan namun kudu pake script vba. Oke langsung aja ya check its out Winking smile

Langkah pertama

Buka aplikasi word pada office 2007 ato 2010 milik anda lalu tekan tombol “Alt+F11” maka akan muncul “visual basic” lalu pada Project (NamaFileAnda), klik This Document

Animation text (1)

 

Langkah kedua

Copy script berikut:

Sub AnimateFont()
Dim sAnimation As String
If Len(Selection.Range) = 0 Then
MsgBox “Select text first!”, vbCritical, “No Text Selected”
Exit Sub
End If
sAnimation = 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 Select
End Sub

Hasilnya akan seperti berikut:

Animation text (2)

 

Langkah ketiga

Close tampilan visual basic tersebut

 

Langkah keempat

Buat kalimat pada word lalu seleksi kalimat yang mo diberi effect animation setelah itu tekan tombol Alt+F8

Maka akan muncul pop up macros pilih kalimat “AnimateFont” & klik tombol Run

Animation text (3)

 

Langkah kelima

Pilih animasi yang di inginkan ketik 1 untuk animasi “blink background” dst dan jika ingin menormalkan kembali lakukan langkah keempat dan ketik angka 0 (Nol) lalu OKAnimation text (4)

 

Finish. Selamat berkarya, klo di print itu animation-nya ikutan kecetak loh hehehehe Nyah-Nyah

Sumber

Submit a Comment

Your email address will not be published. Required fields are marked *

*