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

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.