Property Property

Microsoft PowerPoint Visual Basic

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