Compartilhar via


Método Sequence.AddEffect (PowerPoint)

Retorna um objeto Effect que representa um novo efeito de animação adicionado à sequência de efeitos de animação.

Sintaxe

expression. AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Formato Obrigatório Forma A forma à qual o efeito de animação será adicionado.
effectId Obrigatório MsoAnimEffect O efeito de animação a ser aplicado.
Level Opcional MsoAnimateByLevel Para gráficos, diagramas ou texto, o nível ao qual o efeito de animação será aplicado. O valor padrão é msoAnimationLevelNone.
trigger Opcional MsoAnimTriggerType A ação que dispara o efeito de animação. O valor padrão é msoAnimTriggerOnPageClick.
Index Opcional Long A posição que o efeito irá ocupar na coleção dos efeitos animados. O valor padrão é -1 (adicionado ao final).

Valor de retorno

Efeito

Exemplo

O exemplo a seguir adiciona uma animação elástica ao primeiro intervalo de formas no slide inicial. Este exemplo pressupõe que um intervalo de formas contendo uma ou mais formas esteja selecionado no primeiro slide.

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

Confira também

Objeto Sequence

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.