EffectParameters 对象

Effect EffectParameters ColorFormat

代表 Effect 对象的各种动画参数，如颜色、字体、大小和方向。

使用 EffectParameters 对象

使用 Effect 对象的 EffectParameters 属性返回 EffectParameters 对象。以下示例创建一个形状，然后设置填充效果并更改起始和结束填充颜色。

Sub effParam()
    Dim shpNew As Shape
    Dim effNew As Effect

    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=100, _
        Top:=100, Width:=150, Height:=150)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    With effNew.EffectParameters
        .Color1.RGB = RGB(Red:=0, Green:=0, Blue:=255)
        .Color2.RGB = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub