PowerPoint VBA教程:Formula属性

返回或设置 String 类型值,该值代表用于计算动画的公式。可读写。

expression.Formula

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
        .Formula = RGB(Red:=255, Green:=255, Blue:=255)
    End With
End Sub

上页:PowerPoint VBA教程:Format属性 下页:PowerPoint VBA教程:FrameColors属性

PowerPoint VBA教程:Formula属性

PowerPoint VBA教程:FrameColors属性 PowerPoint VBA教程:FrameSlides属性
PowerPoint VBA教程:From属性 PowerPoint VBA教程:FromX属性
PowerPoint VBA教程:FromY属性 PowerPoint VBA教程:FullName属性
PowerPoint VBA教程:Gap属性 PowerPoint VBA教程:GradientColorType属性
PowerPoint VBA教程:GradientDegree属性 PowerPoint VBA教程:GradientStyle属性
PowerPoint VBA教程:GradientVariant属性 PowerPoint VBA教程:GridDistance属性
PowerPoint VBA教程:GroupItems属性 PowerPoint VBA教程:HandoutMaster属性
PowerPoint VBA教程:HandoutOrder属性 PowerPoint VBA教程:HangingPunctuation属性
PowerPoint VBA教程:HasChildShapeRange属性 PowerPoint VBA教程:HasDiagram属性
PowerPoint VBA教程:HasDiagramNode属性 PowerPoint VBA教程:HasRevisionInfo属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号