Animasi Gambar Berputar dengan VBA Powerpoint 2007

Memutar gambar dengan VBA Powerpoint merupakan salah satu VBA Project yang menarik untuk kita kerjakan. VBA Project ini lahir tanpa direncanakan. Tapi merupakan permintaan salah seorang anggota grup saya pada forum diskusi tentang VBA Powerpoint di Facebook. Tutorial ini pun mungkin saya buat sebagai jawaban dari permintaannya. Sebelumnya saya harus berterima kasih kepadanya karena saya bisa berkreasi lagi dengan VBA Powerpoint.

Tutorial ini dibuat menggunakan Aplikasi Powerpoint 2007. Sehingga bagi anda yang menggunakan Aplikasi Powerpoint dengan versi yang lebih baru supaya dapat menyesuaikan.

memutar gambar dengan vba
Game Memutar Gambar

Memutar Gambar dengan VBA Powerpoint 2007

Baiklah mari kita mulai membuatnya. Project VBA kita kali ini cukup unik. Ini agak berbeda dengan project VBA yang pernah saya kerjakan. Kita tidak hanya butuh code VBA saja tapi juga butuh trik.

Ikuti langkah-langkah berikut dengan baik.

1. Siapkan 3 slide.  Tambahkan beberapa gambar yang diperlukan supaya memiliki tampilan seperti pada gambar berikut ini.

Slide 1
memutar gambar dengan vba powerpoint
Slide1

Pada Slide 1 ini kita menggunakan gambar Welcome, Next, dan Exit. Dua buah shapes yang dipakai adalah Rounded Rectangle dan Callout.

Slide2
memutar gambar dengan vba powerpoint
Slide 2
Pada Slide 2 ini kita menggunakan gambar Lingkaran, Pushpin, Home, Next, dan Exit. Satu buah shapes yang dipakai adalah Rounded Rectangle. Selain itu, kita juga menggunakan 2 buah Action Button berupa Action Button:Custom dan Action Button: Forward or Next. Untuk Action Button dapat ditemukan dengan klik Insert>>Action Button.

Di saat kita menambahkan obyek Action Button ke Slide, pasti akan muncul jendela Action Settings. Oleh karena kita akan memberikan Macro (Code VBA) ke dalamnya, maka kita perlu pengaturan berikut saat pertama kali menambahkan Action Button tersebut. Perhatikan gambar.
memutar gambar dengan vba
action settings slide 2
memutar gambar dengan vba
action settings slide 2


Jadi, kita berikan Action on Click-nya berupa None. Terus klik OK.

Slide3
memutar gambar dengan vba
Slide 3
Pada Slide 3 ini kita menggunakan gambar Thank you, Button : Home, Back, dan Exit.

2. Pengaturan Nama Shapes. Sebelum kita lanjut ke VBE, kita perlu mengatur nama dari shapes atau gambar yang terkait langsung dengan kode VBA yang kita gunakan. Tidak perlu semua shapes dan gambar. Di sini, kita hanya perlu mengatur 1 buah gambar Lingkaran dengan nama 'Picture1' dan 1 buah shapes dnegan nama 'AB' karena nama-nama ini kita gunakan di dalam sintaks VBA kita. perhatikan gambar.
memutar gambar dengan vba
Nama Shapes
memutar gambar dengan vba
Nama Shapes

Jika anda kurang suka dengan nama-nama yang saya gunakan, anda dapat menggantinya. Dengan catatan, anda juga harus merubah sedikit sintaks VBA-nya. Terserah, mau pilih cara yang mana.

3. Masuk ke VBE. Oleh karena kita menggunakan Shapes, kita bisa menulis code VBA pada Module, tepatnya Module1. Lakukan Insert>>Module dalam VBE. Salin code VBA Powerpoint berikut ini.


Sub Anim()
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(2)
    'Set the shapes in slide 2.
    'Setel shapes pada Slide2
    Set oShpA = .Shapes("Picture1")
    Set oShpB = .Shapes("AB")
    ' Assign an interactive animation to shape A
    'Memberikan animasi ke shape A
    Set oEffect = .TimeLine.InteractiveSequences.Add _
                .AddEffect(Shape:=oShpA, effectId:=msoAnimEffectSpin, _
                trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be triggered by clicking on the shape A itself
'Setel Shape B. Animasi Shape A akan aktif saat kita klik Shape B.
oEffect.Timing.TriggerShape = oShpB
oEffect.Timing.RepeatCount = 999
End Sub

Sub pauseshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

Sub runshow()
  ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub

'Teks yang diberi warna biru merupakan nama shapes (gambar) yang sudah kita atur sebelumnya. Jika anda punya nama gambar sendiri,berbeda dengan nama di atas, silahkan ganti teks yang berwarna biru itu sesuai nama gambar (shapes) kita.'

4. Run Macro. Dari VBE kita kembali ke Slide powerpoint. Silahkan berikan Macro yang bersesuaian dengan shapes

Hyperlink pada Slide 1. Pada Slide 1 kita hanya menggunakan Hyperlink biasa yaitu End Show dan Next Slide. Silahkan Copy-Paste gambar Exit yang sudah diberi hyperlink ke Slide 2 dan 3. Juga Copy-Paste gambar Next yang sudah diberi hyperlink ke Slide2. Gambar berikut memperlihatkan cara insert hyperlink ke shapes (gambar).
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
Run Macro pada Slide 2. Pada Slide 2 kita memberikan 3 Macro yaitu Anim, runshow, dan pauseshow. Perhatikan gambar.
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings

Hyperlink pada Slide 3. Pada slide ini kita hanya memberikan hyperlink berupa Firs Slide ke Button Home, Previous Slide ke gambar tombol Back. Lihat gambar.
memutar gambar dengan vba
Action Settings
memutar gambar dengan vba
Action Settings
4. Sekarang kita lihat hasilnya dengan menekan F5 untuk melakukan Slideshow.
5. Supaya hyperlink untuk tombol Exit, Next, dan Previous bisa berjalan optimal, kita harus Setup Slideshow.
6. Jika semua sudah benar, silahkan simpan file project VBA kita dalam format .pptm atau .ppsm.

Apakah anda masih kesulitan membuatnya?. Silahkan simak tutorialnya melalui Video Tutorial Membuat Game Sederhana Memutar Objek (Gambar/Shapes) menggunakan VBA Powerpoint.

Untuk melihat project kami, silahkan di sini.

Nama File :
Game Sederhana Memutar Gambar dengan VBA Powerpoint 2007

Password : supervbaok

Begitulah caranya untuk membuat game sederhana menggunakan VBA Powerpoint. Semoga dapat dipahami dengan baik.

Jika anda suka dengan artikel kami, silahkan share kepada yang lain dengan menggunakan tombol share yang ada di bawah postingan ini. Kunjungi Fanspage Facebook kami di Supervba untuk mendapat pemberitahuan artikel-artikel terbaru kami dengan cara klik Suka untuk mengikuti kami. Terima kasih.
Saria Bakti

Seorang Blogger sejak 2015. Senang berbagi informasi yang dapat meningkatkan Imunitas Tubuh.

أحدث أقدم