PowerPoint VBA教程:SmoothEnd属性

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

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

expression.SmoothEnd

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

VBA示例

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


Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    'Adds shape and sets animation effect
    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)
    'Sets duration of effect and slows animation at end
    With effDiamond.Timing
        .Duration = 5
        .SmoothEnd = msoTrue
    End With
End Sub

上页:PowerPoint VBA教程:Smooth属性 下页:PowerPoint VBA教程:SmoothStart属性

PowerPoint VBA教程:SmoothEnd属性

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