Materi Perkuliahan

sistem Waktu Menggunakan VBA Powerpoint

Dipublikasikan pada : 29 Januari 2020.

Sub waktu()
Dim a As Integer
a = 1
awal = Timer
While Timer < awal + a

DoEvents
Wend
ActivePresentation.Slides(1).Shapes(“hitung”).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(“hitung”).TextFrame.TextRange.Text + 1
ActivePresentation.Slides(1).Shapes(“mobil1”).IncrementLeft 50
ActivePresentation.Slides(1).Shapes(“mobil2”).IncrementLeft -50
Call waktu
End Sub
Sub henti()
End
End Sub

id_IDIndonesian
id_IDIndonesian