script/macro to replace one animation with another

[matthewbentley]

hello, i was hoping that there would be a way to create some sort of
script/macro to replace all "Fly In" animations with "Appear"
animations. i am using powerpoint 2007 is that makes any difference.
i have been working on this for the past hour or so i am at a bit
stuck. i have a 70 slide slideshow that was created by someone else
and the "Fly In" effect gets old after about 2 slides.

any help would be appreciated

 

[David M. Marcovitz]

Something like this should do it for all the fly in animations as long as
they are not triggered:

Sub MakeAllAppear()
Dim oSld As Slide
Dim oShp As Shape
Dim oEffect As Effect

For Each oSld In ActivePresentation.Slides
For Each oEffect In oSld.TimeLine.MainSequence
If oEffect.EffectType = msoAnimEffectFly _
And oEffect.Exit = msoFalse Then
oEffect.EffectType = mosanimeffectappear
End If
Next oEffect
Next oSld
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.PowerfulPowerPoint.com/

(e-mail address removed) wrote in @u2g2000hsc.googlegroups.com: