Animasi Interaktif dengan Powerpoint : Grafik Persamaan Garis Lurus (1)

RBAK_powerfulPPTBagaimana membuat animasi interaktif grafik persamaan garis lurus dengan powerpoint? Pada posting ini, saya berbagi trik untuk membuatnya.

gbr_persamaanGarisInsert 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

 

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