PowerPoint VBA教程:PropertyEffect对象

   
AnimationBehavior
PropertyEffect
AnimationPoints

代表AnimationBehavior对象的属性效果。

使用 PropertyEffect对象

使用 AnimationBehavior对象的PropertyEffect属性返回 PropertyEffect对象。以下示例引用指定动画动作的属性效果。


ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

使用Points属性访问特定动画动作的动画点。如果希望只更改动画动作的两种状态,请使用FromTo属性。以下示例向幻灯片中添加一个新形状,并设置属性效果以将填充颜色动画显示为从蓝到红。


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教程:PrintRanges集合对象 下页:PowerPoint VBA教程:PublishObject对象

PowerPoint VBA教程:PropertyEffect对象

PowerPoint VBA教程:PublishObject对象 PowerPoint VBA教程:PublishObjects集合对象
PowerPoint VBA教程:RGBColor对象 PowerPoint VBA教程:RotationEffect对象
PowerPoint VBA教程:Row对象 PowerPoint VBA教程:Rows集合对象
PowerPoint VBA教程:Ruler对象 PowerPoint VBA教程:RulerLevel对象
PowerPoint VBA教程:RulerLevels集合对象 PowerPoint VBA教程:ScaleEffect对象
PowerPoint VBA教程:Selection对象 PowerPoint VBA教程:Sequence集合
PowerPoint VBA教程:Sequences集合 PowerPoint VBA教程:ShadowFormat对象
PowerPoint VBA教程:Shape对象 PowerPoint VBA教程:ShapeNode对象
PowerPoint VBA教程:ShapeNodes集合对象 PowerPoint VBA教程:ShapeRange集合对象
PowerPoint VBA教程:Shapes集合对象 PowerPoint VBA教程:Slide对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号