Hi,
I'm trying to run a macro on a shape to have a countdown timer but it's not working.
I want it to run on slide 3 and my selected shape is identified as 'rectangle 23', how do I reflect that on my code?
Here is the code i'm using
[CODE]
Sub countdown()
Dim time As Date
Dim count As Integer
time = Now()
count = 120
time = DateAdd("s", count, time)
Do Until time < Now()
DoEvents
With ActivePresentation.Slides(3).Shape(1).TextFrame.TextRange
.Text = Format((time - Now()), "mm:ss")
End With
Loop
End Sub
[\CODE]
Bookmarks