SetEffect オブジェクト

SetEffect オブジェクト

AnimationBehavior SetEffect

アニメーション動作に対する設定効果を表します。SetEffect オブジェクトを使用して、プロパティの値を設定することができます。

使い方

SetEffect オブジェクトを取得するには、AnimationBehavior オブジェクトの SetEffect プロパティを使用します。SetEffect オブジェクトの Property および To プロパティを使用すると、設定効果を変更できます。

使用例

次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、アニメーション動作に対する設定効果を設定します。

  Sub ChangeSetEffect()
    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)
    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)
    Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)

    With bhvEffect.SetEffect
         .Property = msoAnimShapeFillColor
         .To = RGB(Red:=0, Green:=255, Blue:=255)

    End With
End Sub