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”

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”

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