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

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

Синтаксис

выражение. Accelerate

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

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

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

Замечания

Например, значение 0,9 означает, что ускорение должно начинаться медленнее, чем скорость по умолчанию для 90 % общего времени анимации, при этом последние 10 % анимации должны начинаться со скоростью по умолчанию.

Чтобы замедлить анимацию в конце, используйте свойство Decelerate .

Пример

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

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

См. также

Объект Timing

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

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