VBA for PowerPoint : Mengenal bilangan – Banyaknya Mobil 1 – 10

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat ilustrasi “mengenal bilangan”

Langkah pertama : buat TextBox biasa kemudian beri nama “angka”, selanjutnya insert picture “mobil” kemudian copy 9 kali sehingga jumlahnya menjadi 10 dan beri nama mobil1, mobil2, mobil3 sampai dengan mobil10. Tambahkan satu obyek ActiveX Control “SpinButton1”

gambar

Langkah kedua :

Ketikkan pada module (pada microsoft vba editor insert module) , prosedur berikut ini :


Sub hideMobil()

For i = 1 To 10

ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse

Next

End Sub

Langkah ketiga :

Klik kanan pada SpinButton1, kemudian pilih view code akan tampil editor vba pada slide1, ketikkan script berikut :

Private Sub SpinButton1_Change()

hideMobil

For i = 1 To Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue

Next

ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)

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