Timing.TriggerShape プロパティ (PowerPoint)

アニメーションの起動に関連付けられている図形を表す Shape オブジェクトを取得または設定します。 値の取得と設定が可能です。

構文

式。 TriggerShape

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

戻り値

Shape

例

次の使用例は、スライドに 2 つの図形を追加し、1 つの図形にアニメーションを追加して、もう一方の図形をクリックしたときにアニメーションが開始されるように設定します。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

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

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

    Set effDiamond = ActivePresentation.Slides(1).TimeLine. _
      InteractiveSequences.Add().AddEffect(Shape:=shpRectangle, _
      effectId:=msoAnimEffectPathDiamond, trigger:=msoAnimTriggerOnShapeClick)

    With effDiamond.Timing
        .Duration = 5
        .TriggerShape = shpOval
    End With

End Sub

関連項目

オブジェクトのタイミング

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

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