Compartilhar via

Propriedade Timing.Accelerate (PowerPoint)

  • Artigo

Retorna ou define a porcentagem da duração em que deve ocorrer uma aceleração de intervalo. Leitura/gravação.

Sintaxe

expression. Accelerate

Expressão Uma variável que representa um objeto Timing .

Valor de retorno

Único

Comentários

Por exemplo, o valor 0,9 significa que deverá ocorrer uma aceleração após 90% do tempo total da animação, com os últimos 10% da animação na velocidade padrão.

Para diminuir uma animação no final, use a propriedade Decelerate.

Exemplo

Este exemplo adiciona uma forma e uma animação que começa lenta e alcança a velocidade padrão depois de 30% da sequência de animação.

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

Confira também

Objeto de intervalos

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.