Total presentation time

  • Thread starter Thread starter Sandy
  • Start date Start date
Sandy,

I guess you need to rehearse the show if thats the case, you can rehearse
the show and set you own time for each slides. I don't see any direct option
to find total time other than to calculate the total time with fingers.
Another option would be like you can just run the following macro. It will
give you total time of slides which is set to advance on time

Sub TotalPresTime()
Dim time As Integer
time = 0
For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i)
If .SlideShowTransition.AdvanceOnTime Then
time = time + .SlideShowTransition.AdvanceTime
End If
End With
Next i
MsgBox "total show time of slides with AdvanceOnTime is " & time
End Sub
 
Sandy,
The PPT FAQ is your friend:
Show me the transition time of each slide and total running time of the show
http://pptfaq.com/FAQ00413.htm

If you don't know how to set up a macro in PPT, there is even a link at the
bottom of that page that tells you how to do it!

--
Kathy Jacobs, Microsoft MVP OneNote and PowerPoint
Author of Kathy Jacobs on PowerPoint
Get PowerPoint and OneNote information at www.onppt.com
or on my blog, http://geekswithblogs.net/VitaminCH/Default.aspx

I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived
 
I've been pondering over the vba examples for an hour or so and I'm not sure
they work! Surely you would need to account for animation times when they are
longer than the slide advance time. This is where it gets complicated with
delays and "with previous" animations.

For what it's worth I've been experimenting with this code.

Paste it into the vb editor and then let the show run.

Sub OnSlideShowPageChange()
Static strtTime As Date
Dim endTime As Date
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
strtTime = Now
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = _
ActivePresentation.Slides.Count + 1 Then
endTime = Now
MsgBox "The show lasted " & DateDiff("s", strtTime, endTime) & " seconds"
End If
End Sub

--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Problems:
Custom shows
Manual advance slides
Pausing the show
Hyperlinked shows
Non-linear presentations
Hidden slides
Slower computers (low CPU speed or RAM)
Multi-tasking computers

The bottom line is nothing will work better than just running the show and
timing it with a watch.

Most users are asking for a general idea of how long. I played with writing
an add-in to try to trap all these (basically timing from the start of the
first slide show window to the closing of the last window), but figured it
still would not be very accurate and would not do any better than just using
a stop watch.

--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..
 
Back
Top