Table of contents
TOC
折叠目录
展开目录

序列对象 (PowerPoint)Sequences Object (PowerPoint)

office 365 dev account|上次更新日期: 2018/3/13
|
2 参与人员

表示对象的集合序列。使用序列对象添加、 查找、 修改和复制动画效果。Represents a collection of Sequence objects. Use a Sequence object to add, find, modify, and clone animation effects.

示例Example

使用时间线对象的InteractiveSequences属性返回序列集合。使用Add方法添加交互式动画序列。下面的示例向活动演示文稿第一张幻灯片中添加两个形状并设置星形形状的交互式效果,这样当单击棱台形状时,该星形形状进行动画处理。Use the InteractiveSequencesproperty of the TimeLine object to return a Sequences collection. Use theAddmethod to add an interactive animation sequence. The following example adds two shapes on the first slide of the active presentation and sets interactive effect for the star shape so that when you click the bevel shape, the star shape is be animated.

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).TimLine.InteractiveSequences.Add(1)
        Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
            trigger:=msoAnimTriggerOnShapeClick)
        interEffect.Shape = shp1
    End With

End Sub

另请参阅See also

概念Concepts

PowerPoint 对象模型引用PowerPoint Object Model Reference

© 2018 Microsoft