AnimationBehavior.SetEffect Property
Returns a SetEffect object for the animation behavior. Read-only.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
ReadOnly Property SetEffect As SetEffect
Get
'Usage
Dim instance As AnimationBehavior
Dim value As SetEffect
value = instance.SetEffect
SetEffect SetEffect { get; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.SetEffect
SetEffect
Remarks
You can use the SetEffect object returned to set the value of a property.
Examples
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, _
Trigger:=msoAnimTriggerAfterPrevious)
Set bhvEffect = effNew.Behaviors.Add(msoAnimTypeSet)
With bhvEffect.SetEffect.Property = msoAnimShapeFillColor
.To = RGB(Red:=0, Green:=255, Blue:=255)
End With
End Sub