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 のサポートおよびフィードバックを参照してください。

  • Last updated on