
Nah untuk Word 2007, fungsi Text Effect ini tidak disediakan. Dan fungsi ini kembali muncul di Word 2010.
Kalau anda pengguna word 2007 seperti saya, dan belum ingin berpindah ke Word 2010, namun masih ingin menggunakan text Effect, caranya adalah sebagai berikut:
1. Buka Tab Developer, dan pilih Visual Basic.
2. Di Project (NamaFileAnda), klik This Document
3. Pastekan kode berikut ini di This DocumentSub 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
4. Nah, kalau sudah, sekarang balik lagi ke dokumen anda. Blok Tulisan yang ingin anda beri efek Text.
5. Setelah itu Tekan ALT+F8 untuk memanggil Makro. Pilih AnimateFont dan tekan RUN.
6. Akan Muncul Dialog box. Tinggal masukkan nomor animasi text anda.
7. Selesai, maka Text akan dikelilingi oleh animasi
Tidak ada komentar :
Posting Komentar
Silahkan masukan komentar anda...