ColorEffect オブジェクト (PowerPoint)

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

例

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

関連項目

PowerPoint Object Model Reference

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。