Objeto ColorEffect (PowerPoint)
Representa um efeito de cor para um comportamento de animação.
Exemplo
Use a propriedade ColorEffect do objeto AnimationBehavior para retornar um objeto ColorEffect. Os efeitos de cor podem ser alterados usando as propriedades Doe parado objeto ColorEffect, conforme mostrado abaixo. Os efeitos de cor são inicialmente definidos usando a propriedade To e, em seguida, podem ser alterados por um número específico usando a propriedade By. O exemplo a seguir adiciona uma forma ao primeiro slide da apresentação ativa e define um comportamento de animação de efeito de cor para alterar a cor de preenchimento da nova forma.
Sub ChangeColorEffect()
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(Type:=msoAnimTypeColor)
With bhvEffect.ColorEffect
.From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
End With
End Sub
Confira também
Referência de modelo de objeto do PowerPoint
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.