Sabtu, 26 Maret 2016

Cara Membuat Tulisan Berkedip Di Word 2007


Cara membuat tulisan berkedip di word 2007 mudah sekali namun harus sedikit bersabar karena di word 2007 tidak menyediakan fitur seperti ini sehingga kita perlu menambahnya sendiri.
Pertama kita harus menambah satu Tab baru di word nya yaitu Tab Developer, cara mengaktifkannya masuk ke Office Button yang ada di pojok kiri atas kemudian pilih Word Options. Selanjutnya tinggal centang saja di Show Developer tab in the Ribbon.
Setelah menambahkan Tab Developer selanjutnya tinggal buka file yang tulisannya ingin di buat berkedip.

Blok tulisannya kemudian masuk ke tab Developer pilih Visual Basic, klik This Document 2 kali kemudian pastekan kode 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


Sekarang kembali ke tulisan yang mau dibuat kerkedip. Masuk ke Marcos atau tekan ALT+F8 kemudian pilih AnimateFont klik run. Pilih animasi yang diinginkan kemudian klik OK.

0 comments:

Posting Komentar