Share via


AnimationBehavior.SetEffect Property

PowerPoint Developer Reference

Returns a SetEffect object for the animation behavior. Read-only.

Syntax

expression.SetEffect

expression   A variable that represents a AnimationBehavior object.

Return Value
SetEffect

Remarks

You can use the SetEffect object returned to set the value of a property.

Example

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

Visual Basic for Applications
  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, _
    Trigger:=msoAnimTriggerAfterPrevious)
Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)

With bhvEffect.<strong>SetEffect</strong>
     .Property = msoAnimShapeFillColor
    .To = RGB(Red:=0, Green:=255, Blue:=255)
End With

End Sub

See Also