EffectInformation Property
Returns an EffectInformation object representing information for a specified animation effect.
expression.EffectInformation
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a sound effect to the main animation sequence for a given shape.
Sub AddSoundEffect()
Dim effMain As Effect
Set effMain = ActivePresentation.Slides(1).TimeLine.MainSequence(1)
MsgBox effMain.EffectInformation.AfterEffect
End Sub