Timing.RepeatDuration-Eigenschaft (PowerPoint)
Hiermit wird die Dauer wiederholter Animationen (in Sekunden) zurückgegeben oder festgelegt. Lese-/Schreibzugriff.
Syntax
Ausdruck. RepeatDuration
Ausdruck Eine Variable, die ein Timing-Objekt darstellt.
Rückgabewert
Single
HinwBemerkungeneise
Beenden einer Animation wird am Ende der Sequenz Uhrzeit oder der Wert der RepeatDuration -Eigenschaft, aber kürzere.
Beispiel
In diesem Beispiel eine Form und dieser eine Animation hinzugefügt und dann wird die Animation 10-Mal wiederholt. Jedoch nach 5 Sekunden die Animation wird abgeschnitten, obwohl die Animation für eine Zeitachse von 20 Sekunden dimensioniert ist (wenn die Duration -Eigenschaft nicht angegeben wird, eine Animation standardmäßig zwei Sekunden).
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds new shape and sets animation effect
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)
'Sets repeat duration and number of times to repeat animation
With effDiamond.Timing
.RepeatDuration = 5
.RepeatCount = 10
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für