Countdown Timer for PowerPoint.

Skip to first unread message

Jason King

Jul 29, 2004, 1:29:58 PM7/29/04

I want to use a countdown timer movie (quicktime format) or
presentation file within powerpoint before a church worship service. I
want to display minutes, seconds, tenths of seconds. Are there any
resources out there that would meet this need?

Thanks in advance.

Jason King

David M. Marcovitz

Jul 29, 2004, 1:38:50 PM7/29/04
You might check out Clocks and Timers for PowerPoint in the PPTFaq, but
I'm not sure if any of the recommendations work on the Mac:


David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_ (Jason King) wrote in

Jim Gordon MVP

Jul 29, 2004, 8:12:42 PM7/29/04

It sounds like Presenter Tools is exactly what you are looking for:

They are free with your purchase of PowerPoint 2004.


Jim Gordon

Jason King

Jul 30, 2004, 2:58:04 PM7/30/04
Thanks for the suggestions. I should have been more specific in my
request. I want to display a countdown clock on a sanctuary screen,
via PowerPoint, that would communicate to a church congregation that
the worship service would begin in x minutes, seconds, hundreds of
seconds. Sorry for not being more specific.

Jason (Jason King) wrote in message news:<>...

David M. Marcovitz

Jul 30, 2004, 3:45:03 PM7/30/04
The following macro might do what you want.

Create a presentation.

Go to the Tools menu - choose Macro - choose Visual Basic Editor.

Go to the Insert menu and choose Module.

Copy and paste the following (everything from the line that starts with
Sub to the line that has End Sub) into the module.

Choose Close and Return to Microsoft PowerPoint from the PowerPoint menu.

On the first slide put a button, and set the Action Settings to run the
macro BeginCount.

On the second slide, make the slide a title slide and put anything you
want in the title area (the code will change it).

Run the Slide Show and click on the button on the first slide. It will
ask you how many minutes until the start of the service. Type in a
number and hit OK. Voila.

It's not perfect, but it should do the trick. The biggest flaw is that
when the seconds are at 0, it won't display 00.

I'll send you a copy of the presentation to your email listed here.

Sub BeginCount()
Dim serviceStart As Long
Dim serviceStartTime As Long
Dim minutes As Long
Dim seconds As Long

serviceStart = _
InputBox("How many minutes until the service will begin?")
If serviceStart > 1000 Or serviceStart < 0 Then
MsgBox "Sorry, you must pick a number between 0 and 1000"
serviceStartTime = (serviceStart * 60) + Timer
While Timer < serviceStartTime
minutes = Int((serviceStartTime - Timer) / 60)
seconds = (serviceStartTime - Timer) Mod 60

ActivePresentation.SlideShowWindow.View.Slide _
.Shapes(1).TextFrame.TextRange.Text = _
"The service will begin in " & minutes & ":" & seconds
End If
End Sub

David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_ (Jason King) wrote in

Geetesh Bajaj

Aug 3, 2004, 11:40:36 PM8/3/04
Jason, I created this tutorial using PowerPoint for Windows but there's no
reason for it to not work on PowerPoint:mac:

There's also a sample countdown presentation file that you can download.

Geetesh Bajaj, Microsoft PowerPoint MVP
PowerPoint Notes:
Free Templates:

Technical Specialist, PowerPoint Live

"Jason King" <> wrote in message

Sep 5, 2017, 9:45:18 PM9/5/17
I would love to learn how to make a timer also!

Sep 5, 2017, 9:47:06 PM9/5/17
Reply all
Reply to author
0 new messages