Pemrograman VBA untuk Memperbesar dan Mempekecil Shape

Sahabat Sang Pengajar, kita akan kembali melanjutkan belajar kita mengenai pemrograman Visual Basic for Application(VBA) pada Microsoft Office Powerpoint. Tema yanh akan kita pelajari adalah pemrograman VBA untuk memperbesar dan memperkecil shape. Dengan pemrograman ini kita tidak perlu membuat dua slide atau lebih untuk membuat animasi shape menjadi lebih besar atau lebi h kecil.

 

Untuk membuat program ini cukup dengan membuat module kemudian kita buat 2 sub, sebagai berikut :

'Sub untuk memperbesar shape
Sub Besarkan(myShape As Shape)
    myShape.Height = myShape.Height * 2
    myShape.Width = myShape.Width * 2
    myShape.ActionSettings(ppMouseClick).Run = "Kecilkan"
End Sub

'Sub untuk memperkecil shape
Sub Kecilkan(myShape As Shape)
    myShape.Height = myShape.Height / 2
    myShape.Width = myShape.Width / 2
    myShape.ActionSettings(ppMouseClick).Run = "Besarkan"
End Sub

 

Jika sudah silahkan simpan dalam type Powerpoint macro-enabled Presentation(pptm). Mudah bukan? Untuk download file ini silahkan [klik di sini]