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 com as propriedades Dee Parado objeto ColorEffect, conforme mostrado abaixo. Os efeitos de cor são inicialmente definidos com a propriedade Para e, em seguida, podem ser alterados por um número específico com a propriedade Por. 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.