PowerPoint VBA教程:Property属性

设置或返回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  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例添加一个形状,并对该形状添加一个三秒钟的填充动画,然后将填充动画设置为彩色。


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

上页:PowerPoint VBA教程:ProgID属性 下页:PowerPoint VBA教程:PropertyEffect属性

PowerPoint VBA教程:Property属性

PowerPoint VBA教程:PropertyEffect属性 PowerPoint VBA教程:PublishObjects属性
PowerPoint VBA教程:RangeEnd属性 PowerPoint VBA教程:Ranges属性
PowerPoint VBA教程:RangeStart属性 PowerPoint VBA教程:RangeType属性
PowerPoint VBA教程:ReadOnly属性 PowerPoint VBA教程:Registered属性
PowerPoint VBA教程:Relative属性 PowerPoint VBA教程:RelativeSize属性
PowerPoint VBA教程:RelyOnVML属性 PowerPoint VBA教程:RemovePersonalInformation属性
PowerPoint VBA教程:RepeatCount属性 PowerPoint VBA教程:RepeatDuration属性
PowerPoint VBA教程:ResizeGraphics属性 PowerPoint VBA教程:Restart属性
PowerPoint VBA教程:Reverse属性 PowerPoint VBA教程:RewindAtEnd属性
PowerPoint VBA教程:RewindMovie属性 PowerPoint VBA教程:RGB属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号