Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Hiermit wird die Verzögerung, nach der ein Animationstrigger aktiviert wurde, in Sekunden festgelegt oder zurückgegeben. Lese-/Schreibzugriff.
Syntax
Ausdruck. TriggerDelayTime
Ausdruck Eine Variable, die ein Timing-Objekt darstellt.
Rückgabewert
Single
Beispiel
Im folgenden Beispiel wird einer Folie eine Form und dieser eine Animation hinzugefügt. Anschließend wird festgelegt, dass die Form drei Sekunden nach dem Klicken darauf die Animation starten soll.
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
Set shpRectangle = ActivePresentation.Slides(1).Shapes _
.AddShape(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
.AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
With effDiamond.Timing
.Duration = 5
.TriggerShape = shpRectangle
.TriggerType = msoAnimTriggerOnShapeClick
.TriggerDelayTime = 3
End With
End Sub
Siehe auch
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.