Home » , , , » Membuat Tulisan Berkedip pada Microsoft Word 2007

Membuat Tulisan Berkedip pada Microsoft Word 2007

Ada yang menanyakan bagaimana membuat tulisan berkedip di word 2007, seperti yang ada di Word 2003. Kalau di Word 2003, sih gampang : karena di tab font ada beberapa tab lagi, yang salah satunya adalah Text Effect. Pilihan Text Effectnya juga ada 6, yaitu Blinking Background, Las Vegas Lights, Marching Black Ants, Marching Red Ants, Shimmer dan Sparkle Text.
text-effect-in-word-2003
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 Document
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
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

”Perhatian”

Kalau ingin menghilangkan efek text, cukup blog text yang akan dihilangkan animasinya, kemudian tekan ALT+F8, tulis 0 pada inputbox
« Prev Post Next Post » Beranda

Tokoh Penemu Terpilih

Artikel Menarik !

 
"Indahnya Berbagi Walau Hanya Selembar Kertas Bekas"
hibahkan Skripsi, Tesis, Jurnal, Buku, untuk disalurkan ke yang membutuhkan melalui website kami. dengan cara mengrimkan softcopy ke email: bukukerjakita@gmail.com

COPYRIGHT © 2014. ALL RIGHTS RESERVED
[Valid Atom 1.0]