Pada tutorial kali ini akan dijelaskan bagaimana cara menampilkan huruf dari A sampai dengan Z dalam TextBox pada slide powerpoint menggunakan Visual Basic for Application.
Langkah pertama : buat sebuah TextBox dengan nama “kotakhuruf” dan sebuah Spin Button (ActiveX Control seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi “K” kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.
Langkah kedua :
Ketikkan script berikut ini pada Slide 1, untuk menampilkan Visual Basic Editornya, klik “SpinButton1” kemudian pada Tab Developer pilih (klik) View Code
Private Sub SpinButton1_Change()
Dim huruf As Variant
huruf = Array(“A”, “B”, “C”, “D”, “E”, “F”, _
“G”, “H”, “I”, “J”, “K”, “L”, _
“M”, “N”, “O”, “P”, “Q”, “R”, _
“S”, “T”, “U”, “V”, “W”, “X”, _
“Y”, “Z”)
i = Val(SpinButton1)
ActivePresentation.Slides(1).Shapes(“kotakhuruf”).TextFrame.TextRange.Text = huruf(i)
End Sub
ABDUL KARIM 