|
|
本文使用的Sequence、Sequences对象，均在PPT中的VBA环境下使用，需要具备一定的基础知识。
一、Sequence 集合
代表幻灯片交互式动画序列的 Effect 对象的集合。Sequence 集合是 Sequences 集合的成员之一。
使用 Sequence 集合
使用 TimeLine 对象的 MainSequence 属性返回 Sequence 对象。
使用 AddEffect 方法添加新的 Sequence 对象。本示例向当前演示文稿第一张幻灯片第一个形状中添加形状和动画序列。
Sub NewEffect()
Dim effNew As Effect
Dim shpFirst As Shape
Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
(Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
End Sub
二、Sequences集合
代表 Sequence 对象的集合。使用 Sequence 对象添加、查找、修改和复制动画效果。
使用 Sequences 集合
使用 TimeLine 对象的 InteractiveSequences 属性返回 Sequences 集合。使用 Add 方法添加交互式动画序列。以下示例向当前演示文稿的第一张幻灯片中添加两个形状并设置星形形状的交互式效果，这样在单击棱台形状时该星形形状会具有动画效果。
Sub AddNewSequence()
Dim shp1 As Shape
Dim shp2 As Shape
Dim interEffect As Effect
Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShape32pointStar, Left:=100, _
Top:=100, Width:=200, Height:=200)
Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShapeBevel, Left:=400, _
Top:=200, Width:=150, Height:=100)
With ActivePresentation.Slides(1).TimeLine.InteractiveSequences.Add(1)
Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
trigger:=msoAnimTriggerOnShapeClick)
interEffect.Shape = shp1
End With
End Sub
|
|
