Pembelajaran Power Point Macro (VBA)

        PowerPoint adalah software presentasi yang sangat powerfull, berbagai tampilan dan animasi dapat dilakukan, tapi salah satu kelemahannya adalah bukan bahasa pemrograman, sehingga terkadang kurang interaktif. Untuk menambah interaktifitas perlu digabungkan dengan Visual Basic for Application (VBA). Berikut akan dijelaskan secara ringkas langkah-langkah membuat soal pilihan ganda menggunakan VBA in PowerPoint.

FILE PPT SIAP

1. Bukalah program aplikasi Microsoft PowerPoint
2. Pada slide pertama tuliskan ucapan selamat datang dan sedikit informasi tentang cara mengerjakan tes
3. Masih pada slide pertama, siapkan tombol yang bertuliskan “Start” / “Mulai”
4. Buka slide baru, pada slide kedua dan seterusnya, buatlah soal dan pilihan jawabannya.
5. Satu slide berisi satu soal, jadi jika tes terdiri dari 3 soal, maka kita akan membuat soal dari slide ke 2 hingga slide ke 4.
6. Selanjutnya buatlah satu lagi slide (slide ke-5) untuk penutup dan jangan lupa buatkan tombol untuk mengecek skor (Cek Jawaban).
7. Setelah itu tekan Alt + F11 untuk memunculkan Jendela Macro
8. Setelah jendela macro terbuka, pilih Insert > Module, kemudian Copy-Paste script berikut :

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai_kuis()

nilai = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub benar()

konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)

If konfirmasi = vbYes Then

nilai = nilai + 1

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub salah()

konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub cek_skor()

MsgBox (” Jawaban anda yang benar adalah ” & nilai)

konfirmasi = MsgBox(” Ingin Mengulangi kuis? “, vbYesNo)

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.First

End If

If konfirmasi = vbNo Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Atau bisa dengan memakai scrip di bawah ini :

DOWNLOAD INI