ColorEffect.From プロパティ (PowerPoint)

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

構文

式。 From

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

注釈

1 つの色から別の色に切り替えるには、このプロパティを To プロパティと共に使用します。

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

例

次の使用例は、色効果を追加し、その色をすぐに変更します。

Sub AddAndChangeColorEffect() 
    Dim effBlinds As Effect 
    Dim tlnTiming As TimeLine 
    Dim shpRectangle As Shape 
    Dim animColorEffect As AnimationBehavior 
    Dim clrEffect As ColorEffect 
 
    'Adds rectangle and sets effect and animation 
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _ 
        .AddShape(Type:=msoShapeRectangle, Left:=100, _ 
        Top:=100, Width:=50, Height:=50) 
    Set effBlinds = t.MainSequence.AddEffect(Shape:=shpRectangle, _ 
        effectId:=msoAnimEffectBlinds) 
    Set animColorEffect = tlnTimming.MainSequence(1).Behaviors _ 
        .Add(Type:=msoAnimTypeColor) 
    Set clrEffect = animColorEffect.ColorEffect 
 
    'Sets the animation effect starting and ending colors 
    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 のサポートおよびフィードバックを参照してください。