通过

Sequence.AddEffect 方法 (PowerPoint)

返回一个 Effect 对象，该对象表示新的动画效果添加到动画效果序列中。

语法

expression。 AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

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

参数

名称 必需/可选 数据类型 说明
Shape 必需 Shape 向其添加动画效果的形状。
effectId 必需 MsoAnimEffect 要应用的动画效果。
Level 可选 MsoAnimateByLevel 为图表、 图示或文本，将对其应用的动画效果级别。 默认值是 msoAnimationLevelNone 。
trigger 可选 MsoAnimTriggerType 触发动画效果的动作。 默认值是 msoAnimTriggerOnPageClick 。
Index 可选 Long 效果在动画效果集合中放置的位置。 默认值为 -1（添加到末尾）。

返回值

效果

示例

本示例将一个弹跳的动画添加到第一张幻灯片的第一个形状范围内。 本示例假定形状范围包含在第一张幻灯片中选定的一个或多个形状。

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

另请参阅

序列对象

支持和反馈

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