EffectParameters オブジェクト

EffectParameters オブジェクト

Effect EffectParameters ColorFormat

色、フォント、大きさ、向きなどの、Effect オブジェクトのさまざまなアニメーション パラメータを表します。

使い方

EffectParameters オブジェクトを取得するには、Effect オブジェクトの 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