Monday, November 15, 2010

Getting the Rehearsal Timings for Multiple Slides in PowerPoint

When practicing a presentation, you can have PowerPoint record how much time each slide takes using rehearsal mode. Although PowerPoint shows the time for each slide in the slide sorter and in the transition information, I couldn't figure out how to get the total time for multiple slides. This is useful when you want to find out how long different sections of the presentation are so that you know if you are spending too long on certain parts. In the end, I just wrote up a quick PowerPoint macro to do it (just select some slides in the slide sorter and then run the macro to tell you the total time needed for the selected slides):

Sub TotalSlideTiming()
Dim pres As Presentation
Set pres = ActivePresentation

Dim slides As SlideRange
Set slides = ActiveWindow.Selection.SlideRange
TotalTime = 0
For Each s In slides
TotalTime = TotalTime + s.SlideShowTransition.AdvanceTime
Next s

minutes = TotalTime \ 60
seconds = TotalTime Mod 60

msg = Str(minutes) + "m " + Str(seconds) + "s"

MsgBox msg

End Sub

No comments:

Post a Comment