Countdown timer in Powerpoint pauses....

[glad_ir]

Hi,

I wonder if somebody can help me please. I am using the macro below (provided by a member on this site ) to run a countdown timer on an object in a powerpoint slide when I click the object linked to the macro. The timer works well (in presentation mode) as long as I don't navigate away from the slide containing with the object. However, if I navigate away from the slide the timer pauses.

Does anybody know if there is a way to keep the countdown time running when I navigate away from the slide (in presentation mode)?

Any help is very much appreciated!

Thanks,
Iain

Sub macroCONTROL()

Dim time As Date
time = Now()

Dim count As Integer
count = 120

time = DateAdd("s", count, time)

Do Until time < Now()
DoEvents
ActivePresentation.SlideShowWindow.View.Slide.Shapes("Rectangle 7").TextFrame.TextRange = Format((time - Now()), "nn:ss")
Loop

CreateObject("Shell.Application").ShellExecute "wmplayer.exe", "c:\Ghost.mp3", , "open", 0

End Sub

 

[Domenic]

Instead of referring to the active slide, try referring to the specific slide, for example...

ActivePresentation.Slides("Slide1").Shapes("Rectangle 7").TextFrame.TextRange = Format((time - Now()), "nn:ss")

Change the slide name accordingly.

Hope this helps!

 

[glad_ir]

Instead of referring to the active slide, try referring to the specific slide, for example...

ActivePresentation.Slides("Slide1").Shapes("Rectangle 7").TextFrame.TextRange = Format((time - Now()), "nn:ss")

Change the slide name accordingly.

Hope this helps!

Hi Duncan, thank you for the prompt response. This has worked for me.

Thanks, Iain

 

[Domenic]

You're very welcome, glad I could help.

Cheers!