Replace custom animations?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

noem@il.pls - 29 Sep 2007 16:04 GMT

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

Reply to this Message

John Wilson - 29 Sep 2007 16:29 GMT

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

Signature

Amazing PPT Hints, Tips and Tutorials-
http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

> Powerpoint 2003.
> I have a presenmtatoin which I put together a looong time ago, which has
[quoted text clipped - 7 lines]
> Thanks,
> Jeff

Reply to this Message

Jeff - 30 Sep 2007 12:08 GMT

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.

>I think you would have to use vba code this should do it (use a copy
>though)
[quoted text clipped - 34 lines]
>> Thanks,
>> Jeff

Reply to this Message