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"
Else
ActivePresentation.SlideShowWindow.View.Next
serviceStartTime = (serviceStart * 60) + Timer
While Timer < serviceStartTime
DoEvents
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
Wend
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_
http://www.loyola.edu/education/PowerfulPowerPoint/
(e-mail address removed) (Jason King) wrote in
