次の方法で共有

ColorEffect.To プロパティ (PowerPoint)

アニメーション動作の RGB カラー値を表す ColorFormat オブジェクトを取得または設定します。 値の取得と設定が可能です。

構文

式。 To

式ColorEffect オブジェクトを表す変数。

戻り値

ColorFormat

注釈

別の 1 つの色から、 From プロパティと共にへの移行からのこのプロパティを使用します。

このプロパティを ToX または、 ScaleEffect および MotionEffect オブジェクトの拡大/縮小またはアニメーション効果にのみ使用される おもちゃ のプロパティを混同しないでください。

例

次の使用例は、色効果を追加し、明るい青みをおびた緑から黄色に色を変更します。

Sub AddAndChangeColorEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim clrEffect As ColorEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animColor = tmlTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeColor)

    Set clrEffect = animColor.ColorEffect
    clrEffect.From.RGB = RGB(Red:=255, Green:=255, Blue:=0)
    clrEffect.To.RGB = RGB(Red:=0, Green:=255, Blue:=255)

End Sub

関連項目

ColorEffect オブジェクト

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

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