PowerPoint (Sequences 物件)

代表 Sequence 物件的集合。 用於新增、 尋找、 修改及複製動畫效果的 Sequence 物件。

範例

使用 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 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。