Timing.Decelerate-Eigenschaft (PowerPoint)

Legt den Prozentsatz der Dauer fest, über die eine Zeitliche Verzögerung erfolgen soll, oder gibt diesen wert zurück. Lese-/Schreibzugriff.

Syntax

Ausdruck. Decelerate

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

Single

HinwBemerkungeneise

Beispielsweise bedeutet der Wert 0,9, dass die Wiedergabe mit der Standardgeschwindigkeit beginnen und die Verlangsamung nach den ersten 10 % der Animation beginnen soll.

Beispiel

In diesem Beispiel wird einer Folie eine Form und dieser eine Animation hinzugefügt, die mit der Standardgeschwindigkeit startet und nach Ablauf von 70% der Animation verlangsamt wird.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle 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)

    'Slows the effect after seventy percent of the animation has finished

    With effDiamond.Timing
        .Decelerate = 0.3
    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.