PowerPoint VBA教程:PropertyEffect属性

返回给定动画动作的PropertyEffect对象。

expression.PropertyEffect

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例向当前演示文稿添加一个带有效果的形状,然后将该形状的动画效果属性设置为更改颜色。


Sub AddShapeSetAnimFill()
    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animBlinds As AnimationBehavior
    'Adds rectangle and sets animiation effect
    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)
    'Sets the duration of the animation
    effBlinds.Timing.Duration = 3
    'Adds a behavior to the animation
    Set animBlinds = effBlinds.Behaviors.Add(msoAnimTypeProperty)
    'Sets the animation color effect and the formula to use
    With animBlinds.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教程:Property属性 下页:PowerPoint VBA教程:PublishObjects属性

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属性 PowerPoint VBA教程:Root属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号