)))))))))))))))Begin Code(((((((((((((((((
Option Explicit
Sub Time2Notes()
Dim SldNum As Integer
Dim AdvTime As Single
Dim TimeDisplay As String
Dim h As Integer, m As Integer, s As Single
For SldNum = 1 To ActivePresentation.Slides.Count
AdvTime = ActivePresentation.Slides(SldNum). _
SlideShowTransition.AdvanceTime
If ActivePresentation.Slides(SldNum). _
SlideShowTransition.AdvanceOnTime = False Then
TimeDisplay = _
"Automatic Timed Transition is NOT ACTIVE"
GoTo Jump
Else
TimeDisplay = _
"Automatic Timed Transition is set for "
End If
h = Int(AdvTime / 3600)
m = Int((AdvTime - (h * 3600)) / 60)
s = Round(AdvTime - ((m * 60) + (h * 3600)), 2)
If h > 0 Then TimeDisplay = TimeDisplay & _
Format(h, "#0") & ":" & Format(m, "00")
If m * h = 0 Then TimeDisplay = TimeDisplay & "0"
TimeDisplay = TimeDisplay & ":" & Format(s, "00.##")
Jump:
With ActivePresentation.Slides(SldNum).NotesPage. _
Shapes(2).TextFrame.TextRange
.Text = TimeDisplay & vbCr & .Text
End With
Next SldNum
End Sub
)))))))))))))))End of Code(((((((((((((((((
Watch for NG text wrap.
B
===============
Please spend a few minutes checking vestprog2@
out
www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.
Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
This can not be done natively within PowerPoint. Do you know VBA? Oh,
well, than I suppose the next best thing would be to send the slides to
Word, then manually type the timings under the slide or in the notes
section.
Or, if you feel adventurous, enter this code as a macro and run the macro,
then export to Word with notes.
Jacqueline Callanan said:
Hi, I have rehearsed some timings for my presentation and I would like to
be able to print out a Handout (with for example 4 slides per page) that
includes the timings that have been recorded for each slide - maybe with
each timing appearing just underneath its corresponding time. Is this
possible?