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
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.