TimeLine and Shyam!

[Geoff Cox]

Shyam,

I am never sure whether a late response to an earlier thread will get
lost in time!

The code below does use the TimeLine object rather than
AnimationSetting as you recommend - plus it does not delete other
animation on the slide concerned!

It finds an action button which has EndShow and adds dissolve
animation.

Thanks for your help.

Cheers

Geoff


Dim oSl As Slide

For Each oSl In ActivePresentation.Slides

Dim oSh As Shape
For Each oSh In oSl.Shapes
If oSh.Type = 1 Then
If oSh.AutoShapeType = 132 Then
oSl.TimeLine.MainSequence.AddEffect oSh, _
msoAnimEffectDissolve
End If
End If
Next oSh

Next oSl