VBA for PowerPoint : Mengenal bilangan – Banyaknya Mobil 1 – 10

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat ilustrasi “mengenal bilangan”

Langkah pertama : buat TextBox biasa kemudian beri nama “angka”, selanjutnya insert picture “mobil” kemudian copy 9 kali sehingga jumlahnya menjadi 10 dan beri nama mobil1, mobil2, mobil3 sampai dengan mobil10. Tambahkan satu obyek ActiveX Control “SpinButton1”

gambar

Langkah kedua :

Ketikkan pada module (pada microsoft vba editor insert module) , prosedur berikut ini :


Sub hideMobil()

For i = 1 To 10

ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse

Next

End Sub

Langkah ketiga :

Klik kanan pada SpinButton1, kemudian pilih view code akan tampil editor vba pada slide1, ketikkan script berikut :

Private Sub SpinButton1_Change()

hideMobil

For i = 1 To Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue

Next

ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)

End Sub

VBA for Powerpoint : Penyelesaian Sistem Persamaan Linear Dua Variabel (SPLDV)

Pada tutorial kali ini akan dijelaskan bagaimana cara membuat powerpoint untuk menentukan penyelesaian sistem persamaan linear dua variabel (SPLDV).

Langkah pertama : buat TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6 dengan TextBox (ActiveX Control), kemudian buat TextBox “nilaiX” dan “nilaiY” dengan Text Box biasa. Dan buat tampilan seperti pada gambar berikut ini.

gambar

 

Langkah kedua :

Ketikkan script berikut ini pada module, kemudian run macro untuk prosedur “hapus” dengan tombol clear, dan prosedur “hitung_x_y dengan tombol hitung.

Sub hapus()

Slide1.TextBox1.Text = “-“

Slide1.TextBox2.Text = “-“

Slide1.TextBox3.Text = “-“

Slide1.TextBox4.Text = “-“

Slide1.TextBox5.Text = “-“

Slide1.TextBox6.Text = “-“

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = “…”

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = “…”

End Sub

Sub hitung_x_y()

Dim a, b, c, d, p, q As Integer

a = Val(Slide1.TextBox1.Text)

b = Val(Slide1.TextBox2.Text)

p = Val(Slide1.TextBox3.Text)

c = Val(Slide1.TextBox4.Text)

d = Val(Slide1.TextBox5.Text)

q = Val(Slide1.TextBox6.Text)

If a * d – b * c <> 0 Then

ActivePresentation.Slides(1).Shapes(“nilaiX”).TextFrame.TextRange.Text = (d * p – b * q) / (a * d – b * c)

ActivePresentation.Slides(1).Shapes(“nilaiY”).TextFrame.TextRange.Text = (a * q – c * p) / (a * d – b * c)

Else

MsgBox (“SPLDV tidak mempunyai penyelesaian tunggal”)

End If

End Sub

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”

gbr1

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”

gbr2

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

VBA for PowerPoint : Menampilkan huruf A – Z dalam TextBox secara bergantian

Pada tutorial kali ini akan dijelaskan bagaimana cara menampilkan huruf dari A sampai dengan Z dalam TextBox pada slide powerpoint menggunakan Visual Basic for Application.

Langkah pertama : buat sebuah TextBox dengan nama “kotakhuruf” dan sebuah Spin Button (ActiveX Control seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi “K” kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.

gbr1_multimediakareem3

Langkah kedua :

Ketikkan script berikut ini pada Slide 1, untuk menampilkan Visual Basic Editornya, klik “SpinButton1” kemudian pada Tab Developer pilih (klik) View Code

gbr2_multimediakareem3

Private Sub SpinButton1_Change()

Dim huruf As Variant

Dim i As Integer

huruf = Array(“A”, “B”, “C”, “D”, “E”, “F”, _

“G”, “H”, “I”, “J”, “K”, “L”, _

“M”, “N”, “O”, “P”, “Q”, “R”, _

“S”, “T”, “U”, “V”, “W”, “X”, _

“Y”, “Z”)

i = Val(SpinButton1)

ActivePresentation.Slides(1).Shapes(“kotakhuruf”).TextFrame.TextRange.Text = huruf(i)

End Sub

 

 

VBA for Powerpoint : Simulasi Penjumlahan dua bilangan dengan Powerpoint VBA

Pada tutorial ini akan dijelaskan bagaimana membuat simulasi penjumlahan dua bilangan (10 – 99) pada powerpoint menggunakan Visual Basic for Application.

Langkah pertama : buat lima buah TextBox dan dua buah Action Button : Custom. Kemudian tiga buah TextBox diberi nama “bilangan 1”, “bilangan 2” dan “hasil” seperti pada gambar. Adapun cara untuk memberi nama, lakukan langkah berikut : klik TextBox yang berisi angka 61 kemudian pilih Tab Format > klik Selection Pane > pada kotak “Selection and Visibility” ubah nama sesuai dengan yang diinginkan.

gbr1

 

Langkah kedua :

Ketikkan script berikut ini pada module Visual basic Editor (Alt + F11) > Insert module

Sub jawab()

ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = InputBox(“Hasilnya sama dengan”)

If ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = _

Val(ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text) + _

Val(ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text) Then

MsgBox (“Jawaban kamu benar!”)

Else

MsgBox (“Jawaban kamu salah!”)

End If

End Sub

 

Sub soal()

ActivePresentation.Slides(1).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)

ActivePresentation.Slides(1).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Int(89 * Rnd + 10)

ActivePresentation.Slides(1).Shapes(“hasil”).TextFrame.TextRange.Text = ” “

End Sub

 

Langkah ke tiga : untuk menjalankan script VBA, lakukan secara berturut-turut insert > action > run macro , prosedur soal untuk tombol soal dan prosedur jawab untuk tombol jawab.

gbr2

Selamat mencoba!

VBA for Powerpoint : Mengatur Warna Shapes pada Powerpoint

 

Artikel seri VBA for powerpoint akan diisi dengan tutorial belajar pemrograman VBA untuk MS Powerpoint. VBA adalah kependekan dari Visual Basic for Application yang merupakan varian dari bahasa pemrograman Visual Basic dengan host application nya MS Office (MS Word, MS Powerpoint, MS Excel dan MS Acces). Sebagai tulisan pertama tentang VBA , kami menyajikan tutorial tentang bagaimana mengatur warna pada shapes dengan script VBA.

gbr1aLangkah pertama : buat dua buah lingkaran (Oval) dan satu buah tombol (Action Button)

gbr1b

Langkah kedua :

Ketikkan script berikut ini pada module Visual basic Editor (Alt + F11)
‘Script untuk tombol reset yang akan membuat ketiga lingkaran berwarna putih – RGB(255,255,255)

Sub reset()

For i = 1 To 2

ActivePresentation.Slides(1).Shapes(i).Fill.BackColor.RGB = RGB(255, 255, 255)

ActivePresentation.Slides(1).Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 255)

Next

End Sub

Script untuk shapes “Oval 1”, yang akan membuat Oval 1 berwarna merah

Sub lingkaran_1()

reset

ActivePresentation.Slides(1).Shapes(1).Fill.BackColor.RGB = RGB(255, 0, 0)

ActivePresentation.Slides(1).Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

End Sub

Script untuk shapes “Oval 2”, yang akan membuat Oval 2 berwarna hijau RGB(0, 255, 0)

Sub lingkaran_2()

reset

ActivePresentation.Slides(1).Shapes(2).Fill.BackColor.RGB = RGB(0, 255, 0)

ActivePresentation.Slides(1).Shapes(2).Fill.ForeColor.RGB = RGB(0, 255, 0)

End Sub

gbr2

Langkah ke tiga : untuk menjalankan script VBA, lakukan secara berturut-turut insert > shapes > run macro , prosedut lingkaran_1 untuk Oval 1, prosedur lingkaran_2 untuk Oval 2 dan prosedur reset untuk action button : custom 3

Selamat Mencoba!