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]

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?

 

[mole999]

maybe > https://answers.microsoft.com/en-us...imer-for/928b07db-e3cb-49c1-aadf-7ce56dedded2

 

[Yongle]

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
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

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