ColorEffect オブジェクト

ColorEffect オブジェクト

AnimationBehavior ColorEffect ColorFormat

アニメーションの色効果を表します。

使い方

ColorEffect オブジェクトを取得するには、AnimationBehavior オブジェクトの ColorEffect プロパティを使用します。色効果は、次に示すように ColorEffect オブジェクトの From プロパティおよび To プロパティを使って変更できます。色効果は、最初は To プロパティを使って設定し、次に By プロパティを使って特定の色で変更できます。次の使用例は、作業中のプレゼンテーションのスライド 1 に図形を追加し、新しい図形の塗りつぶし色を変更するように色効果アニメーションの動作を設定します。

Sub ChangeColorEffect()
    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(Type:=msoAnimTypeColor)

    With bhvEffect.ColorEffect
        .From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    End With
End Sub