Semoga Bermanfangat..

Berikut kode VBA Jam Digital Power Poin :

Public clock As Boolean
Public currenttime, currentday As String

Sub Pause()
Dim PauseTime, start
PauseTime = 1
start = Timer
Do While Timer (tanda kurung siku kecil) start + PauseTime
DoEvents
Loop
End Sub

Sub StartClock()
clock = True
Do Until clock = False
On Error Resume Next
currenttime = Format((Now()), "h:mm:ss AM/PM")
currenttime = Mid(currenttime, 1, Len(currenttime) - 3)
ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("shpClock").TextFrame.TextRange.Text = currenttime
Pause
Loop
End Sub

Sub OnSlideShowPageChange(ByVal objWindow As SlideShowWindow)
clock = False
ActivePresentation.Slides(SlideShowWindows(1).View.CurrentShowPosition).Shapes("shpClock").TextFrame.TextRange.Text = "--:--:--"
End Sub

Sub OnSlideShowTerminate()
clock = False
End Sub