Senin, 31 Desember 2012

Menampilkan dan Menyembunyikan Gambar dengan VBA

Sahabat Sang Pengajar..kita lanjutkan belajar kita mengenai pemrograman menggunakan Visual Basic for Application (VBA) pada Microsoft Office Powerpoint. Kali ini kita akan mempelajari cara menampilkan dan menyembunyikan gambar dengan menggunakan VBA. Cara ini lebih efektif dan efisien daripada menggunakan efek animasi pada Powerpoint.

image

Untuk membuatnya siapkan gambar-gambar yang akan ditampilkan. Dalam tutorial ini saya pilih 3 gambar binatang, yaitu kucing, ayam, dan harimau. Langkah-langkahnya adalah sebagai berikut :

1. Pada slide 1 sisipkan 3 buah gambar tersebut denga Insert > Picture.

2. Kemudia ubah nama gambar dengan cara klik gambar diikuti klik Format > Selection Pane. Ubah nama ketiga gambar menjadi kucing, ayam, dan harimau.

image

3. Buka jendela code VBA, kemudian ketikkan script berikut :

Sub kucing()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoTrue
.Shapes("ayam").Visible = msoFalse
.Shapes("harimau").Visible = msoFalse
End With
End Sub


Sub ayam()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoFalse
.Shapes("ayam").Visible = msoTrue
.Shapes("harimau").Visible = msoFalse
End With
End Sub


Sub harimau()
With ActivePresentation.Slides(1)
.Shapes("kucing").Visible = msoFalse
.Shapes("ayam").Visible = msoFalse
.Shapes("harimau").Visible = msoTrue
End With
End Sub

4. Buatlah 3 buah tombol untuk mengeksekusi masing-masing gambar, yaitu tombol Kucing, Ayam, dan Harimau.

5. Hubungkan tiap tombol dengan Run macro sebagai berikut : tombol Kucing dengan Run Macro kucing, tombol Ayam dengan Run Macro ayam, dan tombol Harimau dengan Run Macro harimau.

image

6. Simpan file dalam format Powerpoint Macro-enabled Presentation kemudian jalankan dengan menekan tombol F5.

Untuk lebih jelasnya silahkan download file pemrograman menampilkan dan menyembunyikan gambar ini dengan [klik di sini].

Mudah bukan ? Jangan lupa berikan komentar di bawah artikel ini, ya. Selamat belajar !

GURU KREATIF

0 komentar:

Posting Komentar

Arsip Blog