Objeto ColorEffect (PowerPoint)

Representa un efecto de color para un comportamiento de animación.

Ejemplo:

Utilice la propiedad ColorEffect del objeto AnimationBehavior para devolver un objeto ColorEffect. Los efectos de color se pueden cambiar mediante las propiedades Fromy Todel objeto ColorEffect, como se muestra a continuación. Los efectos de color se establecen inicialmente mediante la propiedad To y, a continuación, se pueden cambiar por un número específico mediante la propiedad By. En el siguiente ejemplo se agrega una forma a la primera diapositiva de la presentación activa y se establece un comportamiento de animación de efecto de color para cambiar el color de relleno de la nueva 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

Consulte también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.