Timing.RewindAtEnd-Eigenschaft (PowerPoint)

Artikel
04/07/2023

Gibt an, ob ein Objekt nach Beendigung einer Animation zur Anfangsposition zurückkehrt. Lese-/Schreibzugriff.

Syntax

Ausdruck. RewindAtEnd

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

MsoTriState

HinwBemerkungeneise

Der Wert der RewindAtEnd -Eigenschaft kann eine der folgenden MsoTriState -Konstanten entsprechen.

Konstante	Beschreibung
msoFalse	Das Objekt kehrt nach Beendigung einer Animation nicht zur Anfangsposition zurück.
msoTrue	Das Objekt kehrt nach Beendigung einer Animation zur Anfangsposition zurück.

Beispiel

Im folgenden Beispiel wird einer Folie eine Form und dieser eine Animation hinzugefügt. Anschließend wird festgelegt, dass die Form nach Beendigung der Animation zur Anfangsposition zurückkehren soll.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds 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 duration of animation and returns shape to its original position

    With effDiamond.Timing
        .Duration = 3
        .RewindAtEnd = msoTrue
    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.