Replace custom animations?

  • Thread starter Thread starter noem
  • Start date Start date
N

noem

Powerpoint 2003.
I have a presenmtatoin which I put together a looong time ago, which has
lots of slides with lots of bullet points. I applied a 'fly in'animation to
each bullet point, but now it looks coarse to me...so I want to change all
the 'fly in' animations with an 'appear' animation. But the only way i can
find is to go through one slide at a time, select every animation and work
on it individually. This would be very time consuming and very boring!
Is there a way to select every instance of the 'fly in' animation and then
replace them all in one go with an 'appear' animation?
Thanks,
Jeff
 
I think you would have to use vba code this should do it (use a copy though)

Sub aniswap()
Dim osld As Slide
Dim i As Integer
For Each osld In ActivePresentation.Slides
If osld.TimeLine.MainSequence.Count > 0 Then
For i = 1 To osld.TimeLine.MainSequence.Count
If osld.TimeLine.MainSequence(i).EffectType = msoAnimEffectFly Then
osld.TimeLine.MainSequence(i).EffectType = msoAnimEffectAppear
End If
Next i
End If
Next osld
End Sub

If you don't know how to use this try either:
http://www.pptalchemy.co.uk/vba.html
or:
http://pptfaq.com/FAQ00033.htm
 
Thanks for this - and I'm sorry about the multiple posting of the same
message...I guess my mailserver was down, and I tried sending from different
readers - then they all got sent! Doh.
 
Back
Top