Modifying Animations with vba

If you haven't already read How to Use vba Code you should do this first.

Sometimes the great animation effect that you once loved can start to look a little crass. If you have lots of slides with fly in text and decide that maybe fade would look a little more "mature" it will take ages to change it all.

This vba does it in one go:

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 = msoAnimEffectFade
End If
Next i
End If
Next osld
End Sub

For other animation swaps you will need to change the EffectType :

Some popular types :

msoAnimEffectBox
msoAnimEffectDescend
msoAnimEffectDissolve
msoAnimEffectFadedZoom
msoAnimEffectBounce
msoAnimEffectEaseIn