通过

PowerPoint) (Timing.SmoothEnd 属性

  • 项目

确定动画结束时是否应该减速。 读/写。

语法

expression。 SmoothEnd

表达 一个代表 Timing 对象的变量。

返回值

MsoTriState

备注

SmoothEnd 属性的值可以是其中一个 MsoTriState 常量。

常量 说明
msoFalse 默认值。 动画结束时不减速。
msoTrue 动画结束时减速。

示例

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

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

另请参阅

计时对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。