constant that represents an animation property. Read/write.
| MsoAnimProperty can be one of these MsoAnimProperty constants. |
| msoAnimColor |
| msoAnimHeigth |
| msoAnimNone Default. |
| msoAnimOpacity |
| msoAnimRotation |
| msoAnimShape3DExtrudeForward |
| msoAnimShape3DExtrusionColor |
| msoAnimShape3DXRotationAngle |
| msoAnimShape3DYRotationAngle |
| msoAnimShapefBackColor |
| msoAnimShapefColor |
| msoAnimShapefGradientPreset |
| msoAnimShapefGradientType |
| msoAnimShapeFlipH |
| msoAnimShapeFlipV |
| msoAnimShapefOn |
| msoAnimShapefOpacity |
| msoAnimShapefType |
| msoAnimShapelColor |
| msoAnimShapelDashes |
| msoAnimShapelEndArrowHead |
| msoAnimShapelEndArrowLength |
| msoAnimShapelEndArrowWidth |
| msoAnimShapelOn |
| msoAnimShapelStartArrowHead |
| msoAnimShapelStartArrowLength |
| msoAnimShapelStartArrowWidth |
| msoAnimShapelStyle |
| msoAnimShapelWidth |
| msoAnimShapepBrightness |
| msoAnimShapepContrast |
| msoAnimShapepCropFromBottom |
| msoAnimShapepCropFromLeft |
| msoAnimShapepCropFromRight |
| msoAnimShapepCropFromTop |
| msoAnimShapepFilename |
| msoAnimShapepGamma |
| msoAnimShapepGrayscale |
| msoAnimShapeRotation |
| msoAnimShapesColor |
| msoAnimShapesEmbossed |
| msoAnimShapesOffsetX |
| msoAnimShapesOffsetY |
| msoAnimShapesOn |
| msoAnimShapesOpacity |
| msoAnimShapesType |
| msoAnimShapeType |
| msoAnimShapewfontBold |
| msoAnimShapewfontItalic |
| msoAnimShapewfontName |
| msoAnimShapewfontShadow |
| msoAnimShapewfontSize |
| msoAnimShapewfontSmallCaps |
| msoAnimShapewfontStrikeThrough |
| msoAnimShapewfontUnderline |
| msoAnimShapewSpacing |
| msoAnimShapewVertical |
| msoAnimTextBulletCharacter |
| msoAnimTextBulletColor |
| msoAnimTextBulletFontName |
| msoAnimTextBulletNumber |
| msoAnimTextBulletPicture |
| msoAnimTextBulletRelativeSize |
| msoAnimTextBulletStyle |
| msoAnimTextBulletType |
| msoAnimTextFontBold |
| msoAnimTextFontColor |
| msoAnimTextFontEmboss |
| msoAnimTextFontItalic |
| msoAnimTextFontName |
| msoAnimTextFontShadow |
| msoAnimTextFontSize |
| msoAnimTextFontStrikeThrough |
| msoAnimTextFontSubscript |
| msoAnimTextFontSuperscript |
| msoAnimTextFontUnderline |
| msoAnimWidth |
| msoAnimX |
| msoAnimY |
expression.Property
expression Required. An expression that returns one of the objects in the Applies To list.
Example
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