Animasi Interaktif Penjumlahan (Visual) dengan Powerpoint

Pada posting ini, saya akan menjelaskan bagaimana membuat animasi Interaktif Penjumlahan (Visual).

Untuk bilangan pertama, insert 40 shapes rectangle; bilangan kedua insert shapes 40 rectangle dan untuk hasil penjumlahan bilangan pertama dan kedua insert shapes 40 rectangle. Kemudian insertkan dua buah scrollbar dan tiga buah textbox.

Selanjutnya, View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()
For i = 1 To 40
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
Next

For i = 1 To 80
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoFalse
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next

For i = 1 To Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoTrue
Next

For i = 1 To Val(ScrollBar1) + Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(80 + i).Visible = msoTrue
Next

ActivePresentation.Slides(2).Shapes(“TextBox 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“TextBox 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“TextBox 3”).TextFrame.TextRange.Text = Val(ScrollBar1) + Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()

ScrollBar1_Change

End Sub

download : file animasi interaktif