Timing.Restart-Eigenschaft (PowerPoint)

Gibt an, ob der Animationseffekt nach einmaligem Starten erneut gestartet wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. Restart

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

MsoAnimEffectRestart

HinwBemerkungeneise

Der Wert der Neustart -Eigenschaft kann eine der folgenden MsoAnimEffectRestart -Konstanten sein. Der Standardwert ist MsoAnimEffectRestartNever.

msoAnimEffectRestartAlways
msoAnimEffectRestartNever
msoAnimEffectRestartWhenOff

Beispiel

Im folgenden Beispiel wird eine Form und dieser eine Animation hinzugefügt. Anschließend wird das Neustartverhalten der Animation festgelegt.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation

    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 = 3
        .RepeatDuration = 5
        .RepeatCount = 3
        .Restart = msoAnimEffectRestartAlways
    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.