Timing.Accelerate-Eigenschaft (PowerPoint)

Gibt die Dauer, während der die Wiedergabe einer Animation beschleunigt werden soll, in Prozent wieder oder legt den betreffenden Wert fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. Accelerate

Ausdruck Eine Variable, die ein Timing-Objekt darstellt.

Rückgabewert

Einzel

Hinweise

Beispielsweise bedeutet der Wert 0,9, dass die Wiedergabe während 90% der gesamten Animationsdauer langsamer als die Standardgeschwindigkeit beginnen und während der letzten 10% mit Standardgeschwindigkeit erfolgen soll.

Verwenden Sie die Decelerate -Eigenschaft, Sie eine Animation am Ende verlangsamen.

Beispiel

In diesem Beispiel wird zu einer Folie eine Form und zu dieser eine Animation hinzugefügt, die langsam startet und nach 30% der Animationssequenz die Standardgeschwindigkeit erreicht.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and specifies effect to use for rectangle
    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)

    'Specifies the acceleration for the effect

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