Propriedade SlideShowTransition.Duration (PowerPoint)

Retorna ou define a duração de uma animação, em segundos. Leitura/gravação.

Sintaxe

expression. Duration

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

Valor de retorno

Único

Exemplo

O exemplo a seguir adiciona uma forma e uma animação a essa forma e define a duração da animação.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape 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:=sh, effectId:=msoAnimEffectPathDiamond)

    'Sets duration of effect
    effDiamond.Timing.Duration = 5

End Sub

Confira também

Objeto TimingSlideShowTransition Object

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.