VBA for PowerPoint : Menampilkan huruf A – Z dalam TextBox secara bergantian

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.

gbr1_multimediakareem3

Langkah kedua :

Ketikkan script berikut ini pada Slide 1, untuk menampilkan Visual Basic Editornya, klik “SpinButton1” kemudian pada Tab Developer pilih (klik) View Code

gbr2_multimediakareem3

Private Sub SpinButton1_Change()

Dim huruf As Variant

Dim i As Integer

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

 

 

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s