This documentation is archived and is not being maintained.

SetEffect Property

Office 2003

Returns a SetEffect object for the animation behavior. Read-only. You can use the SetEffect object to set the value of a property.


expression    Required. An expression that returns one of the objects in the Applies To list.


The following example adds a shape to the first slide of the active presentation and sets a set effect animation behavior.

    Sub ChangeSetEffect()
    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(msoAnimTypeSet)
    With bhvEffect.SetEffect
         .Property = msoAnimShapeFillColor
        .To = RGB(Red:=0, Green:=255, Blue:=255)
    End With
End Sub