Compartilhar via

Propriedade Timing.Restart (PowerPoint)

  • Artigo

Representa se o efeito de animação é ou não reiniciado depois que tiver sido iniciado uma vez. Leitura/gravação.

Sintaxe

expression. Restart

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

Valor de retorno

MsoAnimEffectRestart

Comentários

O valor da propriedade Reiniciar pode ser uma destas constantes MsoAnimEffectRestart. O padrão é msoAnimEffectRestartNever.
msoAnimEffectRestartAlways
msoAnimEffectRestartNever
msoAnimEffectRestartWhenOff

Exemplo

O exemplo a seguir adiciona uma forma e uma animação a ela, depois define o comportamento de reinício da animação.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation

    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)

    With effDiamond.Timing
        .Duration = 3
        .RepeatDuration = 5
        .RepeatCount = 3
        .Restart = msoAnimEffectRestartAlways
    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.