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.