Kali ini saya akan jelaskan secara singkat bagaimana membuat tabel perkalian interaktif dengan powerpoint VBA
Insert 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
ABDUL KARIM 