Selamat datang di Blog Arciko Cyber (Powered @ by.Poernama Sidik)

Membuat Tulisan Berkedip di 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.



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...

Semoga Artikel Artikel Arciko Cyber menjadi bermanfaat buat anda dan jangan terlalu cepat, budayakanlah membaca....