一、AnimationBehavior对象
代表动画效果的动作、主动画序列或交互式动画序列。AnimationBehavior 对象是AnimationBehaviors 集合中的成员。
如何使用AnimationBehavior对象
使用 Behaviors(index) 返回单个 AnimationBehavior 对象,其中 index 是动作序列中动作的编号。以下示例设置旋转的起点和终点的位置。本示例假设主动画序列的第一个动作是一个 RotationEffect 对象。
Sub MyChange()
With ActivePresentation.Slides(1).TimeLine.MainSequence(1) _
.Behaviors(1).RotationEffect
.From = 1
.To = 180
End With
End Sub
二、代表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