Print PowerPoint Slides with Animations and Transitions

  • Thread starter Thread starter Mkay
  • Start date Start date
M

Mkay

I need to print a PowerPoint presentation so that the printout shows which
slides have animations and transitions, is this possibe and how? I am using
both PowerPoint 2003 and 2007.
 
Hi Mkay

I'm not sure that there is a way to print out which slides have animations.
The only thing I can think of is to print screen shots of slide sorter
view... Why do you want to do this? Perhaps we can think of an alternative
solution.

Lucy
 
Could be done with code I guess. These two macros will add (and delete again)
markers indicating animation or transition effects.

Sub addmarkers()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
If osld.TimeLine.MainSequence.Count > 0 Or _
osld.TimeLine.InteractiveSequences.Count > 0 Then
With osld.Shapes.AddShape(msoShape12pointStar, 10, 10, 20, 20)
..Fill.ForeColor.RGB = vbYellow
..Tags.Add "ZAP", "YES"
End With
End If
If osld.SlideShowTransition.EntryEffect <> ppEffectNone Then
With osld.Shapes.AddShape(msoShape12pointStar, 40, 10, 20, 20)
..Fill.ForeColor.RGB = vbRed
..Tags.Add "ZAP", "YES"
End With
End If
Next osld
End Sub

Sub zapmarkers()
Dim osld As Slide
Dim i As Integer
For Each osld In ActivePresentation.Slides
For i = osld.Shapes.Count To 1 Step -1
If osld.Shapes(i).Tags("ZAP") = "YES" Then osld.Shapes(i).Delete
Next i
Next osld
End Sub

How to use:
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html#vba
 
Back
Top