MainSequence 属性

返回 Sequence 对象，该对象代表幻灯片的主动画序列中 Effect 对象的集合。

expression  必选。该表达式返回“应用于”列表中的对象之一。

说明

MainSequence 属性的默认值是一个空 Sequence 集合。在不向主动画序列添加 Effect 对象的情况下，任何由此属性返回值的尝试都将导致运行时错误。

示例

以下示例向当前演示文稿新幻灯片的新形状中添加一个飞旋动画。

Sub NewSequence()
    Dim sldNew As Slide
    Dim shpnew As Shape

    Set sldNew = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
    Set shpnew = sldNew.Shapes.AddShape(Type:=msoShape5pointStar, _
        Left:=25, Top:=25, Width:=100, Height:=100)

    With sldNew.TimeLine.MainSequence.AddEffect(Shape:=shpnew, _
            EffectId:=msoAnimEffectBoomerang)
        .Timing.Speed = 0.5
        .Timing.Accelerate = 0.2
    End With
End Sub