Question

Multiple 对象 Sequence Effect

代表幻灯片交互式动画序列的 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