VBA to remove ppEffectDissolve?

[Geoff Cox]

Hello,

I have previously applied following to some action buttons

oSh.AnimationSettings.EntryEffect = ppEffectDissolve

How do I now remove this effect?

Thanks

Geoff

 

[Geoff Cox]

Hello,

I have previously applied following to some action buttons

oSh.AnimationSettings.EntryEffect = ppEffectDissolve

How do I now remove this effect?

I have tried following but it does not work? Where am I wrong?!

For Each oSh In oSl.Shapes
If oSh.Type = 1 Then
If oSh.AutoShapeType = 129 Then
If oSh.AnimationSettings.EntryEffect = _
ppEffectDissolve Then
oSh.AnimationSettings.Animate = msoFalse
End If
End If
End If
Next oSh
Next oSl

Cheers

Geoff

PS I know I ought to use the TimeLine object but would like to get
this to work first.