Timing.TriggerShape-Eigenschaft (PowerPoint)

Legt fest oder gibt ein Shape -Objekt, das die Auslösen einer Animation zugeordnete Form darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. TriggerShape

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

Form

Beispiel

Im folgenden Beispiel werden zu einer Folie zwei Formen hinzugefügt. Dann wird zu einer dieser zwei Formen eine Animation hinzugefügt. Nach dem Klicken auf die andere Form wird die Animation gestartet.

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

Siehe auch

Timing-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.