Presentation Total Time

Topic

New Reply

Help, I have used PP (95-2000, this is in 2k) for a long, long time and never had to find out how long the presentation lasts. Yes I know when you do the rehearsal it tells you. But how do you find the total time after a zillion edits and added slides, etc.?

I am going to do a show where the people want to know “EXACTLY” how long it lasts…”about an half hour” didn’t work.

Thanks for the help.
CorpTrainer@hotmail.com

Reply | Quote

Replies

Does this help?

Run the show. Move your mouse to call up that ghostly menu button that appears at the bottom left of the screen. Click the triangular button. Select Slide Meter. As you run the show, it will show you the time for each slide and the total time for the show.

Louis

Reply | Quote

Thanks, but no such choice in my menu, only:
——–
Next
Previous
Go
—
Meeting Minder
Speaker Notes
—
Pointer Options
Screen
—
Help
End Show
————-
And none of them have any thing about the Slide Meter in them? Any other ideas I will try most anything short of timing it…it is long.

Ron

Reply | Quote

Do the new slides you’ve added have timings too?

Reply | Quote

Yes the new slides all have timings too. I originally did this presentation…say 3 months ago and have since added slides (times set on them, with animations) and deleted some slides and changed timings on some slides. Now I want to know the total time of the entire slide show…without having to add up the individual slide times.

Reply | Quote

I’m thinking that there might be a VBA method – try posting a link to this thread on the VBA board and see if we can get a VBA wizard interested in this problem!

Reply | Quote

When you open the presentation and select Slide Show | Rehearse Timings, this will produce a double clock which records the time for each slide and the total time for the whole show as mentioned above.

When you finish this option, a dialogue box will show on the screen showing the total time. I know this is the slow way, but if your presentation lasts about 30 minutes, it’ll take about that long to get the answer you’re looking for!

Reply | Quote

[indent]

---

Yes I know when you do the rehearsal it tells you. But how do you find the total time after a zillion edits and added slides, etc.?

---

[/indent]
I’m having trouble understanding this – the only way I know to time a presentation is to rehearse it and record the figures – but your comment implies that you want to find some other way to do this. Just in case I have misunderstood (a frequent occurrence), open the presentation and select Slide Show | Rehearse Timings. This produces a double clock which records the time for each slide and the total time for the whole show. Accept the option to record the slide timings when you reach the end of the show.
Then select Slide Show | Set Up Show and ensure that the Advance Slides | Using timings, if present radio button is set.
Now, when you run the show, the slides will change based on the recorded timings for each slide. If you get questions and need to hold the slides, you can click on the triangle, select Screen and use Pause/Resume.
If it’s an automatic presentation, there are other options on the Set Up Show dialogue which allow it to run automatically, again based on the recorded slide timings.
Hope some (preferably all) of this helps.

Reply | Quote

This is an old thread – but a useful question, has anyone built a tool to total up the slide timings? Without having to rerun the rehearsal again?

Cheers

Reply | Quote

Dontcha just love when people answer their own questions
How about this

Sub PresentationTotalTime()
'
'   
    Dim myCount As Integer
    Dim CurSlideNum As Integer
    Dim CurSlideTime As Integer
    Dim TotalTime As Integer
    
     myCount = ActivePresentation.Slides.Count
     CurSlideNum = 1
     TotalTime = 0
     CurSlideTime = 0    While CurSlideNum <= myCount
     CurSlideTime = ActivePresentation.Slides.Item(CurSlideNum) _
        .SlideShowTransition.AdvanceTime
     TotalTime = CurSlideTime + TotalTime
     CurSlideNum = CurSlideNum + 1
    Wend

    MsgBox (TotalTime / 60)
    
End Sub

Any suggestions?

Cheers

Reply | Quote