TAUFIQURROHMAN(Powerpoint 8 : Mengoptimalkan MS Powerpoint Menggunakan Visual Basic for Applications)

Powerpoint 8 : Mengoptimalkan MS Powerpoint Menggunakan Visual Basic for Applications

TAUFIQURROHMAN

0955201053

Microsoft Office Powerpoint ternyata tidak kalah dengan multimedia pembelajaran yang dibuat dengan program lainnya, ketika dapat memadukan konten media dengan berbagai animasi, suara, video. Satu lagi pemrograman yang suport dengan MS Powerpoint yaitu menggunakan Visual Basic for Applications (VBA).

Untuk mengaktifkan Visual Basic pada MS Powerpoint ini ada beberapa langkah yang perlu kita lakukan yaitu mengaktifkan menu developer. Adapun langkah-langkahnya sebagai berikut :

1. Buka MS Powerpoint

2. Klik “Office button” > klik “Powerpoint Options” > klik “Show Developer tab in the Ribbon” > klik “OK”.

3. Menu developer sudah aktif dan anda sudah dapat menggunahan aplikasi visual basic untuk MS Powerpoint.

Salah satu pemanfaatan Visual Basic ini adalah membuat kuis interaktif pada powerpoint. Langkah-langkahnya sebagai berikut :

1. Buat soal menggunakan powerpoint sebanyak 10 soal. Pada slide 1 buatlah petunjuk pengerjaan dan tombol mulai. Slide 2 sampai slide 11 adalah soal nomor 1 sampai dengan 10. Pada slide 12 buat tombol cek nilai. Pada slide 13 buat tombol hasil.

2. Klik “Developer” > klik “Visual Basic” > klik “Insert” > klik “Module”

2. Copy  paste script di bawah ini pada Module1 :

Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox(“Anda yakin dengan jawaban ini?”, vbYesNo, ” Cek Jawaban! “)
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox(“Anda yakin dengan jawaban ini?”, vbYesNo, ” Cek Jawaban! “)
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub
Sub tampilkan()
With ActivePresentation.Slides(13)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Jika anda melakukan langkah ini dengan benar maka akan tampil seperti pada gambar di bawah ini :

Keterangan :

• Pada script “nilai = nilai + 10” silahkan sesuaikan dengan jumlah soal anda. Angka 10 di sini adalah skor untuk tiap nomor soal jika dijawab benar.
• Pada script “Slide (13)” silahkan sesuaikan dengan nomor slide di mana nilai siswa akan ditampilkan.
• Pada script “Shapes (2)” silahkan sesuaikan dengan nomor shape dimana nilai siswa akan ditampilkan.

4. Kemudian kita hubungkan setiap tombol dengan script VBA dengan cara klik kanan pada tombol > klik “Insert” > klik “Action” > klik “Run macro” , Seperti ditunjukkan pada gambar di bawah ini :

• Pada button mulai pilih run macro “mulai”
• Pada option jawaban benar pilih run macro “benar”
• Pada option jawaban salah pilih rum macro “salah”
• Pada button cek jawaban pilih rum macro “cek”

5. Pembuatan kuis interaktif powerpoint menggunakan Visual Basic selesai. Silakan lihat dengan menekan F5.