通过

PowerPoint) (SlideShowTransition.Duration 属性

返回或设置以秒为单位的动画长度。 读/写。

语法

expression。 Duration

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

返回值

单精度

示例

以下示例添加一个形状并对该形状添加动画，然后设置该动画的持续时间。

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:=sh, effectId:=msoAnimEffectPathDiamond)

    'Sets duration of effect
    effDiamond.Timing.Duration = 5

End Sub

另请参阅

计时对象SlideShowTransition 对象

支持和反馈

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