Powerpoint Interaktif (dengan VBA) : Menentukan KPK dari 2 Bilangan

Kali ini saya memanfaatkan  script VB dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif menentukan KPK dari 2 bilangan.
Berikut ini tambahan script VBA yang saya berikan untuk mengontrol obyek-obyek pada slide

Private Sub ScrollBar1_Change()
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 = LCM(Val(ScrollBar1), Val(ScrollBar2))
End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

download : file powerpoint KPK