PowerPoint: Is it possible to have a 5 minute presentation where slides count down the time left, but displays the same text field on all 300+ slides?

charlesstricklin

Board Regular
Joined
May 6, 2013
Messages
52
I am a school teacher, and each class I open up with a focus question displayed on the SmartBoard where students are supposed to answer the question in their notebook. They have 5 minutes after the Tardy Bell to complete their answers.

I'd like to create a presentation that counts down in text how many minutes and seconds they have left to complete the assignment at the bottom of the screen. From asking elsewhere I'm told that I have to create a single slide/second for a total of 300+ screens, and have them each advance to the next slide in the sequence after 1 second.

Here's what I'm talking about:




Is there a way to do that and only have to write the question only once instead of on 300+ cards?
 

Yongle

Well-known Member
Joined
Mar 11, 2015
Messages
4,941
Office Version
365
Platform
Windows
Test this in a new presentation
- only ONE slide is required :)

1. add "clock" shape
- click on 1st slide \ click on Insert tab \ Shape \ Rectangle and add the shape anywhere on the slide
2. rename rectangle shape
- click on Format tab \ click Selection Menu
- in selection pane click on box containing Rectange's name and amend the name to "Clock"
3. add the code
- go to VBA window with {ALT}{F11}
- Insert a new Module with {Alt} I M
- paste the code into that module
- return to PowerPoint with {ALT}{F11}
4. start the slideshow
- play from current slide
- do not cancel the slideshow until the timer finishes :eek:
5. amend to suit
- after testing amend everything to suit your needs
- when testing 10 seconds is long enough but after testing amend value of c to 300 (ie 300 seconds = 5 minutes)
- you may prefer a different shape etc

Code:
Sub OnSlideShowPageChange()
    TenNineEight
End Sub

Public Sub TenNineEight()
    Dim t As Date, c As Long, shp As Shape
    Set shp = ActivePresentation.Slides(1).Shapes("Clock")
    t = Now: c = [B]10[/B]
    t = DateAdd("s", c, t)
    Do Until t = Now
        DoEvents
        shp.TextFrame.TextRange.Text = Format((t - Now), "hh:mm:ss")
    Loop
End Sub
 
Last edited:

Forum statistics

Threads
1,085,695
Messages
5,385,230
Members
401,936
Latest member
stephenpoff

Some videos you may like

This Week's Hot Topics

Top