VBA for PowerPoint : Menampilkan dan menyembunyikan gambar dengan toggle button

Ketika kita mengetik soal pilihan ganda pada slide powerpoint, seringkali kita menjumpai masalah “bagaimana menempatkan gambar dengan ukuran yang sesuai, tetapi sayangnya ruang untuk gambar tidak cukup lagi. Salah satu trik untuk mengatasi masalah tersebut adalah dengan menyembunyikan gambar tersebut dan digantikan dengan sebuah tombol (toggle button) , sedangkan untuk menampilkannya kita klik “toggle button”. Pada tutorial ini, akan dijelaskan langkah-langkah untuk melakukan hal tersebut.

Langkah pertama : sisipkan sebuah toggle button – Developer – Toggle Button (Active X Control), kemudian seleksi Toggle Button – klik kanan – properties – pada bagian Caption ketikkan “lihat gambar”

gbr1

Langkah kedua : Sisipkan gambar yang akan ditampilkan/sembunyikan, Insert –  Picture – kemudian klik pada gambar pilih menu format –  Selection Pane sehingga tampil panel Selection and Visibility, beri nama “gambar 1”

gbr2

Langkah ketiga

Klik kanan Toggle Button pilih View Code sehingga tampil VBA editor dan ketikkan

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoFalse

Else

ActivePresentation.Slides(1).Shapes(“gambar 1”).Visible = msoTrue

End If

End Sub

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