PowerPoint VBA教程:Sequences集合

   
TimeLine
Sequences
Sequence

代表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

上页:PowerPoint VBA教程:Sequence集合 下页:PowerPoint VBA教程:ShadowFormat对象

PowerPoint VBA教程:Sequences集合

PowerPoint VBA教程:ShadowFormat对象 PowerPoint VBA教程:Shape对象
PowerPoint VBA教程:ShapeNode对象 PowerPoint VBA教程:ShapeNodes集合对象
PowerPoint VBA教程:ShapeRange集合对象 PowerPoint VBA教程:Shapes集合对象
PowerPoint VBA教程:Slide对象 PowerPoint VBA教程:SlideRange集合对象
PowerPoint VBA教程:Slides集合对象 PowerPoint VBA教程:SlideShowSettings对象
PowerPoint VBA教程:SlideShowTransition对象 PowerPoint VBA教程:SlideShowView对象
PowerPoint VBA教程:SlideShowWindow对象 PowerPoint VBA教程:SlideShowWindows集合对象
PowerPoint VBA教程:SoundEffect对象 PowerPoint VBA教程:Table对象
PowerPoint VBA教程:TabStop对象 PowerPoint VBA教程:TabStops集合对象
PowerPoint VBA教程:Tags对象 PowerPoint VBA教程:TextEffectFormat对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号