-
1 Attachment(s)
Live Clock On text box
Hi Everyone,
Hope someone can help me on this.
I would like a live clock on a Textbox or a shape but not having any luck at the moment.
Got the following code below to work but its appearing on the first slide only. Need it to be flexible and move to any slide on the textbox. Please help :(
Code:
Sub digitalClock()
Dim time As Date
Dim minutes As Integer
time = Now()
minutes = 60
time = DateAdd("n", minutes, time)
Do Until Now() = time
DoEvents
With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
.Text = Format(Now(), "hh:mm:ss")
End With
Loop
End Sub
-
Just a thought. Put on slide master and set visible to false. put a discrete button to change visible to true. then on slide change set visible to false. Just a concept. the code is yours to deal with. Sorry.