EffectInformation 属性

返回 EffectInformation 对象，该对象代表指定动画效果的信息。

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

本示例为给定形状的主动画序列添加声音效果。

Sub AddSoundEffect()
    Dim effMain As Effect
    Set effMain = ActivePresentation.Slides(1).TimeLine.MainSequence(1)
    MsgBox effMain.EffectInformation.AfterEffect
End Sub