Compartilhar via

Propriedade Timing.Decelerate (PowerPoint)

  • Artigo

Define ou retorna a porcentagem da duração sobre a qual deve ocorrer uma desaceleração de tempo. Leitura/gravação.

Sintaxe

expression. Decelerate

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

Valor de retorno

Único

Comentários

Por exemplo, o valor 0,9 significa que uma animação deve se iniciar na velocidade padrão, e depois começar a diminuir sua velocidade após os primeiros 10% da animação.

Exemplo

Este exemplo adiciona uma forma e uma animação que se inicia na velocidade padrão e fica mais lenta após se completar 70% da animação.

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

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.