Compartilhar via

Propriedade Timing.RepeatDuration (PowerPoint)

  • Artigo

Define ou retorna a duração de animações repetidas, em segundos. Leitura/gravação.

Sintaxe

expression. RepeatDuration

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

Valor de retorno

Único

Comentários

Uma animação será interrompida ao final da sua sequência de tempo ou o valor da propriedade RepeatDuration, o que for mais curto.

Exemplo

Este exemplo adiciona uma forma e uma animação a ela, depois repete a animação dez vezes. No entanto, após cinco segundos, a animação será abreviada, mesmo que a animação é dimensionada para uma linha de tempo de 20 segundos (se a propriedade Duration não for especificada, uma animação padrão é dois segundos).

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

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

    'Sets repeat duration and number of times to repeat animation
    With effDiamond.Timing
        .RepeatDuration = 5
        .RepeatCount = 10
    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.