Artikel seri VBA for powerpoint akan diisi dengan tutorial belajar pemrograman VBA untuk MS Powerpoint. VBA adalah kependekan dari Visual Basic for Application yang merupakan varian dari bahasa pemrograman Visual Basic dengan host application nya MS Office (MS Word, MS Powerpoint, MS Excel dan MS Acces). Sebagai tulisan pertama tentang VBA , kami menyajikan tutorial tentang bagaimana mengatur warna pada shapes dengan script VBA.
Langkah pertama : buat dua buah lingkaran (Oval) dan satu buah tombol (Action Button)
Langkah kedua :
Ketikkan script berikut ini pada module Visual basic Editor (Alt + F11)
‘Script untuk tombol reset yang akan membuat ketiga lingkaran berwarna putih – RGB(255,255,255)
Sub reset()
For i = 1 To 2
ActivePresentation.Slides(1).Shapes(i).Fill.BackColor.RGB = RGB(255, 255, 255)
ActivePresentation.Slides(1).Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 255)
Next
End Sub
‘Script untuk shapes “Oval 1”, yang akan membuat Oval 1 berwarna merah
Sub lingkaran_1()
reset
ActivePresentation.Slides(1).Shapes(1).Fill.BackColor.RGB = RGB(255, 0, 0)
ActivePresentation.Slides(1).Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub
‘Script untuk shapes “Oval 2”, yang akan membuat Oval 2 berwarna hijau RGB(0, 255, 0)
Sub lingkaran_2()
reset
ActivePresentation.Slides(1).Shapes(2).Fill.BackColor.RGB = RGB(0, 255, 0)
ActivePresentation.Slides(1).Shapes(2).Fill.ForeColor.RGB = RGB(0, 255, 0)
End Sub
Langkah ke tiga : untuk menjalankan script VBA, lakukan secara berturut-turut insert > shapes > run macro , prosedut lingkaran_1 untuk Oval 1, prosedur lingkaran_2 untuk Oval 2 dan prosedur reset untuk action button : custom 3
Selamat Mencoba!
ABDUL KARIM 