SetEffect.Property Property - PowerPoint

Sets or returns an MsoAnimProperty constant that represents an animation property. Read/write.

Syntax

expression.Property

expression A variable that represents a SetEffect object.

Return Value
MsoAnimProperty

Example

The following example adds a shape, adds a three-second fill animation to that shape, and sets the fill animation to color.

Visual Basic for Applications

Visual Basic for Applications
Sub AddShapeSetAnimFill() Dim effBlinds As Effect Dim shpRectangle As Shape Dim animProperty As AnimationBehavior Set shpRectangle = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShapeRectangle, Left:=100, _ Top:=100, Width:=50, Height:=50) Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds) effBlinds.Timing.Duration = 3 Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty) With animProperty.PropertyEffect .Property = msoAnimColor .From = RGB(Red:=0, Green:=0, Blue:=255) .To = RGB(Red:=255, Green:=0, Blue:=0) End With End Sub

Sub AddShapeSetAnimFill() Dim effBlinds As Effect Dim shpRectangle As Shape Dim animProperty As AnimationBehavior Set shpRectangle = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShapeRectangle, Left:=100, _ Top:=100, Width:=50, Height:=50) Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds) effBlinds.Timing.Duration = 3 Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty) With animProperty.PropertyEffect .Property = msoAnimColor .From = RGB(Red:=0, Green:=0, Blue:=255) .To = RGB(Red:=255, Green:=0, Blue:=0) End With End Sub

See also: