EffectParameters 属性

       

返回代表动画效果属性的 EffectParameters 对象。

expression.EffectParameters

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

示例

本示例向第一张幻灯片的主动画序列添加效果。该效果将第一个形状的字体更改为 Broadway。

Sub ChangeFontName()
    Dim shpText As Shape
    Dim effNew As Effect

    Set shpText = ActivePresentation.Slides(1).Shapes(1)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpText, EffectId:=msoAnimEffectChangeFont)
    effNew.EffectParameters.FontName = "Broadway"
End Sub