Свойство Timing.Decelerate (PowerPoint)

Задает или возвращает процент длительности, в течение которой должно произойти замедление времени. Для чтения и записи.

Синтаксис

выражение. Decelerate

выражение Переменная, представляющая объект Timing .

Возвращаемое значение

Одинарное с плавающей точкой

Замечания

Например, значение 0,9 означает, что замедление должно начинаться со скорости по умолчанию, а затем замедляться после первых десяти процентов анимации.

Пример

В этом примере добавляется фигура и анимация, которая начинается со скоростью по умолчанию и замедляется после завершения 70 % анимации.

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

См. также

Объект Timing

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.