Program Interaktif Menggunakan PowerPoint dan Visual Basic for Application

Operasi Penjumlahan Menggunakan PowerPoint dan

Visual Basic For Application

PowerPoint akan semakin interaktif apabila digabung dengan Visual Basic for Application (VBA). Sedikit pemrograman dalam Visual Basic yang terintegrasi dalam PowerPoint akan semakin menghidupkan tampilan PowerPoint.

Untuk menggunakan PowerPoint dan VBA terlebih dahulu dipersiapkan fitur-fitur dalam PowerPoint sebagai berikut:

  1. Buat slide baru, klik menu File > New > Blank presentation > Create > Design, lalu pilih desain yang sesuai dari template atau buatan sendiri.
  2. Menambahkan menu Developer (jika belum ada), caranya klik menu File > Options > Customize Ribbon > Choose commands from: All Tabs, Customize the Ribbon: Main Tabs. Centang Developer. Jika di Main Tabs belum ada Developer maka dari All Tabs klik Developer dan klik Add>> ke Main Tabs, lalu centang dan tekan OK.
  3. Menambahkan menu Format (Drawing Tools) jika belum ada, caranya klik menu File > Options > Customize Ribbon > Choose commands from: All Tabs, Customize the Ribbon: Main Tabs. Centang Format (Custom). Jika di Main Tabs belum ada Format (Custom) maka dari All Tabs klik Format (Drawing Tools) dan klik Add>> ke Main Tabs, lalu centang dan tekan OK.
  4. Klik menu Developer, klik dan drag 6 buah Text Box ke slide baru dengan rincian 2 Text Box untuk input penjumlahan, 1 Text Box untuk hasil penjumlahan, 1 Text Box untuk tanda +, 1 Text Box  untuk tanda = dan 1 Text Box untuk judul. Klik dan drag juga 2 Command Button, 1 untuk Hitung dan lainnya untuk Ulang, sehingga hasilnya seperti berikut:

ppvba-1

  1. Klik kiri Command Button 1 > kik kanan > CommandButton Object > Edit > beri nama HITUNG.
  2. Klik kiri Command Button 2 > kik kanan > CommandButton Object > Edit > beri nama ULANG.
  3. Klik menu Format > Selection Pane, sehingga muncul kotak dialog Selection and Visibiity
  4. Beri nama setiap Text Box, input pertama = a1, input kedua = a2, hasil penjumlahan = a3, 1 Text Box = tanda +, 1 Text Box  = tanda = dan 1 Text Box = Judul. Caranya pilih Text Box atau Command Button yang akan diberi nama maka pada kotak dialog Selection and Visibiity akan ditunjukkan mana yang terpilih, lalu klik dobel (cepat) lalu beri nama dan terakhir tekan Enter. Lakukan cara yang sama untuk Text Box dan Command Button lainnya.

ppvba-2

  1. Tekan ALT + F11 > Insert Module, sehingga muncul tampilan kosong Visual Basic
  2. Sementara lakukan Copy & Paste script berikut ke tampilan kosong di atas

Private Sub Hitung_Click()

a3 = Val(a1) + Val(a2)

End Sub

Private Sub Ulang_Click()

a1 = ” “

a2 = ” “

a3 = ” “

End Sub

  1. Simpan dengan klik button Save
  2. Kembali ke tampilan PowerPoint
  3. Simpan dengan ekstensi PowerPoint Macro-Enabled Presentation
  4. Tekan tombol F5 untuk menjalankan PowerPoint

Leave a Reply

Your email address will not be published. Required fields are marked *