ColorEffect Object (PowerPoint)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Represents a color effect for an animation behavior.

Use the ColorEffect property of the AnimationBehavior object to return a ColorEffect object. Color effects can be changed using the ColorEffect object's From and To properties, as shown below. Color effects are initially set using the To property, and then can be changed by a specific number using the By property. The following example adds a shape to the first slide of the active presentation and sets a color effect animation behavior to change the fill color of the new shape.

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, _


    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