Propriedade AnimationBehavior.SetEffect (PowerPoint)
Retorna um objeto SetEffect para o comportamento de animação. Somente leitura.
Sintaxe
expression. SetEffect
expressão Uma variável que representa um objeto AnimationBehavior .
Valor de retorno
SetEffect
Comentários
Use o objeto SetEffect retornado para definir o valor de uma propriedade.
Exemplo
O exemplo a seguir adiciona uma forma ao primeiro slide da apresentação ativa e define um comportamento de animação com efeito de definição.
Sub ChangeSetEffect()
Dim sldFirst As Slide
Dim shpHeart As Shape
Dim effNew As Effect
Dim bhvEffect As AnimationBehavior
Set sldFirst = ActivePresentation.Slides(1)
Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=100, Top:=100, Width:=100, Height:=100)
Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
(Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
Trigger:=msoAnimTriggerAfterPrevious)
Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)
With bhvEffect.SetEffect
.Property = msoAnimShapeFillColor
.To = RGB(Red:=0, Green:=255, Blue:=255)
End With
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.