Rehearsed Timings

You may know how to use rehearse timings in PowerPoint to set animation times and transition times for an automatic presentation.

You can easily see the set transition times but it is difficult to read the exact animation times.

This macro exracts them and creates a csv file on your desktop (results.csv) that can be opened in Excel for study.

Sub read_recorded()
Dim strReport As String
Dim osld As Slide
Dim rayTimes() As String
Dim counter As Long
Dim iNum As Integer
Dim strFile As String
strFile = Environ("USERPROFILE") & "\Desktop\Results.csv"
For Each osld In ActivePresentation.Slides
strReport = strReport & "Slide " & osld.SlideIndex & vbCrLf
If osld.Tags("TIMING") <> "" Then
rayTimes = Split(osld.Tags("TIMING"), "|")
For counter = 1 To UBound(rayTimes)
strReport = strReport & "Animation " & counter & "," & rayTimes(counter) & vbCrLf
Next counter
End If
strReport = strReport & "Transition time " & "," & osld.SlideShowTransition.AdvanceTime & "," & vbCrLf & vbCrLf
Next osld

iNum = FreeFile
Open strFile For Output As iNum
Print #iNum, strReport
Close iNum
End Sub

How to use