Length of Presentation

[Guest]

How do I find out the length of a presentation, without adding up the seconds
manually?

 

[Bill Dilworth]

Hi Kim,
This will tell you the approximate running time of a presentation, but can
be thrown off by some things. For instance, if an animation holds back the
advancement or a sound or movie holds it back. If you have many slow
transitions, it may be a little bit longer but not much.

**How do I use VBA code in PowerPoint?
http://www.pptfaq.com/FAQ00033.htm


====Start Code=====
Sub HowLongDoIHaveToSitHere()

Dim oSld As Slide
Dim iTime As Single
Dim bManual As Boolean

For Each oSld In ActivePresentation.Slides
With oSld.SlideShowTransition
If .AdvanceOnTime = msoTrue Then
iTime = iTime + .AdvanceTime
Else
bManual = True
End If
End With
Next oSld

If bManual = False Then
MsgBox "Total time " & CStr(iTime) & " seconds."
Else
MsgBox "Total time " & CStr(iTime) & " seconds," & _
vbCr & _
" but there are manually advanced slides."
End If

End Sub
====End Code=====


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

 

[Guest]

I don't understand. What is a VBA code?

Kim

Hi Kim,
This will tell you the approximate running time of a presentation, but can
be thrown off by some things. For instance, if an animation holds back the
advancement or a sound or movie holds it back. If you have many slow
transitions, it may be a little bit longer but not much.

**How do I use VBA code in PowerPoint?
http://www.pptfaq.com/FAQ00033.htm


====Start Code=====
Sub HowLongDoIHaveToSitHere()

Dim oSld As Slide
Dim iTime As Single
Dim bManual As Boolean

For Each oSld In ActivePresentation.Slides
With oSld.SlideShowTransition
If .AdvanceOnTime = msoTrue Then
iTime = iTime + .AdvanceTime
Else
bManual = True
End If
End With
Next oSld

If bManual = False Then
MsgBox "Total time " & CStr(iTime) & " seconds."
Else
MsgBox "Total time " & CStr(iTime) & " seconds," & _
vbCr & _
" but there are manually advanced slides."
End If

End Sub
====End Code=====


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

 

[Guest]

Kim here again. Gosh, I don't know much about Powerpoint..just enough to do
"just enough." I read the explanation you gave me, and it's like reading a
foreign language. Thanks though. I think it will just be easier to add up
my seconds on a calculator!

Kim