返回代表动画效果属性的 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