How to know time spent on each slide while presenting live?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to know how much time I am spending on a slide during live
presentation. "Rehearse" option will not do since it pops up the timer on
screen.
 
I could imagine a simple VBA script that could help. The easiest script
would require a button press on each slide (to activate the script), but
a slightly more complicated script could work if run at the beginning.
Something like this would require a button on the first slide to activate
the slideTimes DiscoverTimings script and another button on the last
slide could activate the ShowTimings script:

Dim slideTimes() As Long

Sub DiscoverTimings()
Dim currentSlideNum As Long
Dim previousSlideNum As Long
Dim slideStartTime As Long
ReDim slideTimes(ActivePresentation.Slides.Count + 1)

slideStartTime = Timer
previousSlideNum = 1
currentSlideNum = _
ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
While currentSlideNum > 0 And currentSlideNum < _
ActivePresentation.Slides.Count
currentSlideNum = _
ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
If currentSlideNum <> previousSlideNum Then
slideTimes(previousSlideNum) = Timer - slideStartTime
slideStartTime = Timer
previousSlideNum = currentSlideNum
End If
DoEvents
Wend
End Sub

Sub ShowTimings()
Dim i As Long

For i = 1 To ActivePresentation.Slides.Count - 1
MsgBox "Slide " & i & ": " & slideTimes(i) & " seconds"
Next i
End Sub



--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

"=?Utf-8?B?UHJhYmhha2FyYSBIUg==?=" <Prabhakara
(e-mail address removed)> wrote in
 
If you are looking at doing it programmatically, there are two properties
which will interest you:

SlideShowWindows(1).View.SlideElapsedTime

SlideShowWindows(1).View.PresentationElapsedTime
 
Back
Top