Timing.RepeatCount-Eigenschaft (PowerPoint)

Gibt die Anzahl der Wiederholungen einer Animation zurück oder legt diesen Wert fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. RepeatCount

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

Long

Beispiel

In diesem Beispiel wird eine Form erstellt und dieser eine Animation hinzugefügt. Anschließend wird die Animation zweimal wiederholt.

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 ' Length of effect.
        .RepeatCount = 2 ' How many times to repeat.
    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.