PropertyEffect オブジェクト (PowerPoint)

  • [アーティクル]

AnimationBehavior オブジェクトのプロパティ効果を表します。

例

PropertyEffect オブジェクトを取得するのにには、 AnimationBehavior オブジェクトのPropertyEffectプロパティを使用します。 次の使用例は、指定したアニメーション動作のプロパティ効果を参照します。

ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

特定のアニメーション動作のアニメーション ポイントにアクセスするのにには、 Points プロパティを使用します。 アニメーション動作の状態を 2 つだけ変更する場合は、From プロパティと Toプロパティ を使用します。 次の使用例を新しい図形を追加する、青から赤の塗りつぶしの色をアニメーション化するプロパティの効果を設定しています。

Sub AddShapeSetAnimFill()

    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior

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

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

    effBlinds.Timing.Duration = 3
    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)

    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    End With

End Sub

関連項目

PowerPoint Object Model Reference

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

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