AnimationBehaviors 集合

Effect AnimationBehaviors AnimationBehavior

代表 AnimationBehavior 对象的集合。

使用 AnimationBehaviors 集合

使用 Add 方法添加一个动画动作。以下示例在第一张幻灯片的主动画序列中添加一个五秒钟的动画旋转动作。

Sub AnimationObject()
    Dim timeMain As TimeLine

    'Reference the main animation timeline
    Set timeMain = ActivePresentation.Slides(1).TimeLine

    'Add a five-second animated rotation behavior
    'as the first animation in the main animation sequence
    timeMain.MainSequence(1).Behaviors.Add Type:=msoAnimTypeRotation, Index:=1
End Sub