Bagaimana membuat animasi interaktif grafik persamaan garis lurus dengan powerpoint? Pada posting ini, saya berbagi trik untuk membuatnya.
Insert Shapes line sebanyak 23 buah dan sebuah ScrollBar. Tambahkan juga textbox untuk menampilkan persamaan garis lurusnya.
Selanjutnya, View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :
Private Sub ScrollBar1_Change()
For i = 1 To 23
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next
ActivePresentation.Slides(2).Shapes(Val(ScrollBar1) + 12).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“konstanta”).TextFrame.TextRange.Text = Val(ScrollBar1)
End Sub
download : file animasi interaktif
ABDUL KARIM 