Printing out animated objects from a single slide on multiple pages

After a PowerPoint presentation is finalized, it's often difficult to prepare a version that can be printed in out in hard copy. If you have multiple animated objects on a single slide, it won't be possible to prepare a print copy or PDF that shows each object on a separate slide. The below vba code, posted here by by Kallis, can be used to solve this dilemma.

1. In this example we have a slide which has eight different animated objects. Although it's not the case in this example, animated objects often overlap making it hard to create a hard copy in which each displayed.

2. Press Alt + F11 to enter Visual Basic. Right click on a presentation in the project panel on the left and insert the below vba code in a new module.

3. Back in PowerPoint, go to View . . . Macros and then Run 'AddElements'.

4. The macro will generate a new slide for each animated object.

5. The original slides will remain, so delete those before printing your hard copy.

Sub AddElements() Dim shp As Shape Dim i As Integer, n As Integer n = ActivePresentation.Slides.Count For i = 1 To n Dim s As Slide Set s = ActivePresentation.Slides(i) s.SlideShowTransition.Hidden = msoTrue Dim max As Integer: max = 0 For Each shp In s.Shapes If shp.AnimationSettings.Animate = msoTrue Then If shp.AnimationSettings.AnimationOrder > max Then max = shp.AnimationSettings.AnimationOrder End If End If Next Dim k As Integer, s2 As Slide For k = 0 To max Set s2 = s.Duplicate(1) s2.SlideShowTransition.Hidden = msoFalse s2.MoveTo ActivePresentation.Slides.Count Dim i2 As Integer For i2 = s2.Shapes.Count To 1 Step -1 With s2.Shapes(i2) If .AnimationSettings.Animate = msoTrue Then If .AnimationSettings.AnimationOrder > k Then .Delete Else .AnimationSettings.Animate = msoFalse End If End If End With Next Next Next End Sub Sub RemElements() Dim i As Integer, n As Integer Dim s As Slide n = ActivePresentation.Slides.Count For i = n To 1 Step -1 Set s = ActivePresentation.Slides(i) If s.SlideShowTransition.Hidden = msoTrue Then s.SlideShowTransition.Hidden = msoFalse Else s.Delete End If Next End Sub

Turn off Animation in a Presentation

Don’t miss that PowerPoint includes an option under Slide Show . . . Set-up Show to deactivate animated objects.  In the dialog box that appears, on the lower left you’ll see a checkbox to run the show without animation. 

Automatically change animation on all slides

Tonight's tip concerns visual basic code I crafted on the basis of the macro posted here by Chris Newman which is designed to remove all animation on all slides of a PowerPoint presentation. The vba code posted below will change all of the animation set for all shapes on all slides to the simple 'Appear' effect. Simply enter Visual Basic by pressing ALT + F11, and then enter the code in a new module.

On the line beginning, "sld.TimeLine.MainSequence.Item(x).EffectType =", you can enter whatever animation effect you choose. When you begin to enter text at the end of this line, Visual Basic will display the available animation effects.

Sub ChangeAllAnimations() 'PURPOSE: Remove All PowerPoint Animations From Slides 'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault Dim sld As Slide Dim x As Long Dim Counter As Long 'Loop Through Each Slide in ActivePresentation For Each sld In ActivePresentation.Slides 'Loop through each animation on slide For x = sld.TimeLine.MainSequence.count To 1 Step -1 'Change Each Animation sld.TimeLine.MainSequence.Item(x).EffectType = msoAnimEffectAppear 'Maintain Change Stat Counter = Counter + 1 Next x Next sld 'Completion Notification MsgBox Counter & " Animation(s) were changed in your PowerPoint presentation!" End Sub