通过

PowerPoint) (Sequences 对象

  • 项目

表示对象的集合 序列 。 使用 序列 对象添加、 查找、 修改和复制动画效果。

示例

使用 时间线 对象的InteractiveSequences属性返回 序列 集合。 使用 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

另请参阅

PowerPoint 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。