PropertyEffect.Property Property
Sets or returns an [MsoAnimProperty#SameCHM] constant that represents an animation property. Read/write.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Property Property As MsoAnimProperty
Get
Set
'Usage
Dim instance As PropertyEffect
Dim value As MsoAnimProperty
value = instance.Property
instance.Property = value
MsoAnimProperty Property { get; set; }
Property Value
Type: Microsoft.Office.Interop.PowerPoint.MsoAnimProperty
MsoAnimProperty
Examples
The following example adds a shape, adds a three-second fill animation to that shape, and sets the fill animation to color.
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