Animasi Interaktif dengan ScrollBar pada Powerpoint

Pada artikel ini kita akan membuat animasi interaktif dengan salah satu komponen controls pada tab developer yaitu ScrollBar.

Langkah pertama, insert 20 gambar mobil yang disusun seperti pada gambar di bawah ini (untuk mengatur gambar gunakan tab format – align) dan sebuah ScrollBar

gbr1_AnimasiInteraktif_1

Seleksi ScrollBar atur (Poperties) nilai minimum (min) sama dengan 1 dan nilai maksimum (max) sama dengan 20 kemudian pilih View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 20

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

Next

ActivePresentation.Slides(1).Shapes(Val(ScrollBar1)).Visible = msoTrue

End Sub

download : file animasi interaktif

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s