设置或返回 MsoAnimProperty 类型常数,该常数代表动画属性。可读写。
MsoAnimProperty 可以是下列 MsoAnimProperty 类型常数之一。 |
msoAnimColor |
msoAnimHeigth |
msoAnimNone 默认值。 |
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 必选。该表达式返回“应用于”列表中的对象之一。
以下示例添加一个形状,并对该形状添加一个三秒钟的填充动画,然后将填充动画设置为彩色。
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