PowerPoint VBA教程:SmoothStart属性

设置或返回MsoTriState 类型常数,该常数代表动画启动时是否应该加速。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。动画启动时不加速。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 动画启动时加速。 

expression.SmoothStart

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

VBA示例

以下示例向幻灯片添加一个形状并使该形状具有动画效果,然后指示该形状在动画启动时加速。


Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)
    Set effDiamond = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectPathDiamond)
    With effDiamond.Timing
        .Duration = 5
        .SmoothStart = msoTrue
    End With
End Sub

上页:PowerPoint VBA教程:SmoothEnd属性 下页:PowerPoint VBA教程:SnapToGrid属性

PowerPoint VBA教程:SmoothStart属性

PowerPoint VBA教程:SnapToGrid属性 PowerPoint VBA教程:SoundEffect属性
PowerPoint VBA教程:SourceFullName属性 PowerPoint VBA教程:SourceType属性
PowerPoint VBA教程:SpaceAfter属性 PowerPoint VBA教程:SpaceBefore属性
PowerPoint VBA教程:SpaceWithin属性 PowerPoint VBA教程:SpeakerNotes属性
PowerPoint VBA教程:Speed属性 PowerPoint VBA教程:SplitHorizontal属性
PowerPoint VBA教程:SplitVertical属性 PowerPoint VBA教程:Start属性
PowerPoint VBA教程:StartingSlide属性 PowerPoint VBA教程:StartValue属性
PowerPoint VBA教程:State属性 PowerPoint VBA教程:StopAfterSlides属性
PowerPoint VBA教程:Style属性 PowerPoint VBA教程:SubAddress属性
PowerPoint VBA教程:Subscript属性 PowerPoint VBA教程:Superscript属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号