Sequences オブジェクト (PowerPoint)

シーケンス オブジェクトのコレクションを表します。 追加、検索、変更、およびアニメーションのクローンを作成するには、 シーケンス オブジェクトを使用します。

例

TimeLine オブジェクトのInteractiveSequencesプロパティを使用して、 シーケンス のコレクションを取得します。 対話型アニメーション シーケンスを追加するには、 Addメソッドを使用します。 次の例は、作業中のプレゼンテーションのスライド 1 に 2 つの図形を追加し、星の図形に対話型効果が設定されるよう、斜めの図形をクリックすると、星の図形をアニメーション化します。

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 Object Model Reference

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。