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
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
ABDUL KARIM 