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 !


21 comments:

  1. sudah saya coba, misal gambar saya align center jg gppkan?

    ReplyDelete
    Replies
    1. Tidak apa2, pak...semua gambar dibuat sama align center ....

      Delete
  2. Wow, bagus pa' Agus, saya sudah mendonloadnya. Lanjut terus pak

    ReplyDelete
    Replies
    1. Makasih dah berkunjung, pak....siipppp...lanjutken...

      Delete
  3. Siiip .... Ku pelajari dulu ya ..... Wah .... Makin jauh ketinggalan nih .....

    ReplyDelete
    Replies
    1. Silahkan, bu Herfen...ditunggu share ilmunya juga

      Delete
  4. Terimakasih info nya... mudah2an kita lebih optimal lagi sebagai guru

    ReplyDelete
    Replies
    1. Semoga demikian bu Tati....Terima kasih telah berkunjung ke blog ini

      Delete
  5. trims. Saya sangat terkendala dg bahasa pemrograman yg dipakai di vba, dulu hanya pernah bljr dikit tentang turbo pascal, mhn petunjuk kemana saya harus dalami bahasa pemrogaman di VBA?

    ReplyDelete
    Replies
    1. Bisa belajar dari buku2 visual basic, pak...tinggal mengaplikasikan ke VBA

      Delete
  6. Oke banget Pak Agus. dikembangkan terus ya, saya tak belajar sama njenengan.

    ReplyDelete
  7. bagus pak

    -->>> free Skripsi, Tesis, Disertasi <<--

    complete download semua file tanpa terkecuali

    cekidot : http://mulok.library.um.ac.id/index.php?mod=b&cat=1

    ReplyDelete
  8. wah bagus banget mas.. trima kasih ya infonya.

    ReplyDelete
  9. saya pingin belajar membuat teka-teki silang di power point.gimana caranya mas?? tolong dituntun nggih mas...

    ReplyDelete
  10. Trimkasih pak agus, sdh saya coba dengan mengunakan if ...then ... dan berhasil. Anda memang pintar

    ReplyDelete
  11. mas agus, saya ingin bertanya,
    saya membuat beberapa pertanyaan dan tersedia beberapa pilihan jawaban(pilihan a, pilihan b, pilihan c, dan pilihan d). Pada slide terakhir sudah saya buat label untuk nilai dari keseluruhan pertanyaan yang dijawab.
    Nah, saya ingin memunculkan gambar A bila nilai (misal) 10, gambar B nilai (misal) 9, gambar C nilai (misal) 8, dan seterusnya.
    Untuk macro-nya sendiri itu bagaimana ya mas?
    Terimakasih sebelumnya.

    ReplyDelete
  12. bagus konten blognya. bisa jadi inspirasi.

    ReplyDelete
  13. sangat bagus sekali pak... sangat bermanfaat sekali

    ReplyDelete

 
SangPengajar.com © 2016 | Contact Us | Pingin Punya Blog Keren?
Top