Membuat Luas Segitiga Dasar
Sub kanan() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft 10 End Sub Sub kiri() ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft -10 End Sub Sub atas() ActivePresentation.Slides(1).Shapes(“kotak” & […]
