Script VBA untuk membuat hitung mundur (countdown timer) di Powerpoint

Artikel ini saya tulis karena sering mendapat pertanyaan dari peserta workshop tentang “bagaimana membuat countdown timer” atau hitung mundur dengan powerpoint.

Berikut ini adalah langkah-langkah membuat “countdown timer” powerpoint

1. Pada slide pertama, siapkan dua buah textbox yang diberi nama “start” dan “tampilanJam” dan satu buah tombol “mulai”

2. Pada slide kedua buat sebuah tombol “ulangi” dan sebuah shapes untuk keluar (exit)

3. Kemudian insert module pada Visual Basic Editor (Alt+F11), dan copy paste script berikut ini :

‘Script VBA untuk Hitung Mundur
‘https://abdulkarim.wordpress.com
Sub mulai_Initialize()
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Hitung Mundur”
End With
End Sub
Sub Waktu()
Static waktuberjalan As Boolean
If waktuberjalan = True Then
End
Else
waktuberjalan = True
Dim waktuberkurang As Integer
Dim xwaktu As Date
xwaktu = Now
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Waktu yang tersisa”
With .Shapes(“tampilanJam”)

waktuberkurang = InputBox(“Lama Waktu Hitung Mundur”, “Pengaturan Waktu”)
Do While (waktuberkurang > -1)
If Format(Now, “ss”) <> Format(xwaktu, “ss”) Then
xwaktu = Now
.TextFrame.TextRange.Text = Format(TimeValue(Format(Now, “hh:mm:ss”)) – TimeSerial(Hour(Now), Minute(Now), Second(Now) + waktuberkurang), “hh:mm:ss”)
waktuberkurang = waktuberkurang – 1
DoEvents
End If
Loop
End With
waktuberjalan = False
MsgBox (“Waktu habis!… klik ‘OK’ untuk mengulangi hitung mundur.”)
SlideShowWindows(1).View.GotoSlide (2)
End

End With
End If
End Sub
Sub ulangi()
With ActivePresentation.Slides(1)
.Shapes(“start”).TextFrame.TextRange.Text = “Hitung Mundur”
SlideShowWindows(1).View.GotoSlide (1)
End With
End Sub

5. Selanjutnya pada tombol mulai (slide1), insert >  action > run macro “Waktu” dan pada tombol ulangi (slide2) insert > action > run macro “ulangi”

Link download : powerpoint countdown timer

Selamat mencoba dan semoga bermanfaat!