Powerpoint Interaktif (dengan VBA) : Tabel Perkalian

RBAK_powerfulPPT

Kali ini saya akan jelaskan secara singkat bagaimana membuat tabel perkalian interaktif dengan powerpoint VBA

gbr_TabelPerkalianInsert shapes textbox 200 buah, 100 buah hasil perkalian pada tabel dan 100 buah untuk menampilkan perkalian dari 1 sampai dengan 10. Tambahkan ScrollBar.
Pilih Visual Basic pada tab Developer kemudian insert module dan ketikkan script berikut :

Sub hasilkali()
Set kali = ActivePresentation.Slides(2)
hasil = Array(kali.Shapes(“hasil_0_0”), kali.Shapes(“hasil_1_1”), kali.Shapes(“hasil_1_2”), kali.Shapes(“hasil_1_3”), kali.Shapes(“hasil_1_4”), kali.Shapes(“hasil_1_5”), kali.Shapes(“hasil_1_6”), kali.Shapes(“hasil_1_7”), kali.Shapes(“hasil_1_8”), kali.Shapes(“hasil_1_9”), kali.Shapes(“hasil_1_10”), _
kali.Shapes(“hasil_2_1”), kali.Shapes(“hasil_2_2”), kali.Shapes(“hasil_2_3”), kali.Shapes(“hasil_2_4”), kali.Shapes(“hasil_2_5”), kali.Shapes(“hasil_2_6”), kali.Shapes(“hasil_2_7”), kali.Shapes(“hasil_2_8”), kali.Shapes(“hasil_2_9”), kali.Shapes(“hasil_2_10”), _
kali.Shapes(“hasil_3_1”), kali.Shapes(“hasil_3_2”), kali.Shapes(“hasil_3_3”), kali.Shapes(“hasil_3_4”), kali.Shapes(“hasil_3_5”), kali.Shapes(“hasil_3_6”), kali.Shapes(“hasil_3_7”), kali.Shapes(“hasil_3_8”), kali.Shapes(“hasil_3_9”), kali.Shapes(“hasil_3_10”), _
kali.Shapes(“hasil_4_1”), kali.Shapes(“hasil_4_2”), kali.Shapes(“hasil_4_3”), kali.Shapes(“hasil_4_4”), kali.Shapes(“hasil_4_5”), kali.Shapes(“hasil_4_6”), kali.Shapes(“hasil_4_7”), kali.Shapes(“hasil_4_8”), kali.Shapes(“hasil_4_9”), kali.Shapes(“hasil_4_10”), _
kali.Shapes(“hasil_5_1”), kali.Shapes(“hasil_5_2”), kali.Shapes(“hasil_5_3”), kali.Shapes(“hasil_5_4”), kali.Shapes(“hasil_5_5”), kali.Shapes(“hasil_5_6”), kali.Shapes(“hasil_5_7”), kali.Shapes(“hasil_5_8”), kali.Shapes(“hasil_5_9”), kali.Shapes(“hasil_5_10”), _
kali.Shapes(“hasil_6_1”), kali.Shapes(“hasil_6_2”), kali.Shapes(“hasil_6_3”), kali.Shapes(“hasil_6_4”), kali.Shapes(“hasil_6_5”), kali.Shapes(“hasil_6_6”), kali.Shapes(“hasil_6_7”), kali.Shapes(“hasil_6_8”), kali.Shapes(“hasil_6_9”), kali.Shapes(“hasil_6_10”), _
kali.Shapes(“hasil_7_1”), kali.Shapes(“hasil_7_2”), kali.Shapes(“hasil_7_3”), kali.Shapes(“hasil_7_4”), kali.Shapes(“hasil_7_5”), kali.Shapes(“hasil_7_6”), kali.Shapes(“hasil_7_7”), kali.Shapes(“hasil_7_8”), kali.Shapes(“hasil_7_9”), kali.Shapes(“hasil_7_10”), _
kali.Shapes(“hasil_8_1”), kali.Shapes(“hasil_8_2”), kali.Shapes(“hasil_8_3”), kali.Shapes(“hasil_8_4”), kali.Shapes(“hasil_8_5”), kali.Shapes(“hasil_8_6”), kali.Shapes(“hasil_8_7”), kali.Shapes(“hasil_8_8”), kali.Shapes(“hasil_8_9”), kali.Shapes(“hasil_8_10”), _
kali.Shapes(“hasil_9_1”), kali.Shapes(“hasil_9_2”), kali.Shapes(“hasil_9_3”), kali.Shapes(“hasil_9_4”), kali.Shapes(“hasil_9_5”), kali.Shapes(“hasil_9_6”), kali.Shapes(“hasil_9_7”), kali.Shapes(“hasil_9_8”), kali.Shapes(“hasil_9_9”), kali.Shapes(“hasil_9_10”), _
kali.Shapes(“hasil_10_1”), kali.Shapes(“hasil_10_2”), kali.Shapes(“hasil_10_3”), kali.Shapes(“hasil_10_4”), kali.Shapes(“hasil_10_5”), kali.Shapes(“hasil_10_6”), kali.Shapes(“hasil_10_7”), kali.Shapes(“hasil_10_8”), kali.Shapes(“hasil_10_9”), kali.Shapes(“hasil_10_10”))
End Sub

Seleksi ScrollBar, kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()
hasilkali
For i = 1 To 101
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
hasil(i – 1).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next
hasil(Val(ScrollBar1) – 1).Visible = msoTrue
End Sub

download : file powerpoint Interaktif

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