次の方法で共有

Application.SlideShowNextBuild イベント (PowerPoint)

  • [アーティクル]

マウス クリックするか、アニメーションのタイミング、アニメーション化されたオブジェクトが表示される前に発生します。 .

構文

式。 SlideShowNextBuild(Wn)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Wn 必須 SlideShowWindow アクティブなスライド ショー ウィンドウです。

注釈

Application オブジェクトでイベントを使用する方法については、「使い方: Application オブジェクトでイベントを使用する」を参照してください。

例

スライド 1 の現在の図形がビデオの場合は、次の使用例は、発表者が手動で停止するまで継続的にムービーを再生します。 このコードは、 SlideShowNextSlide イベントの 2 番目の例で使用するよう設計されています。

Private Sub App_SlideShowNextBuild(ByVal Wn As SlideShowWindow)

    If EvtCounter <> 0 Then

        With ActivePresentation.Slides(1) _
                .Shapes(shpAnimArray(2, EvtCounter))

            If .Type =msoMedia Then

                If .MediaType = ppMediaTypeMovie

                    .AnimationSettings.PlaySettings _
                        .LoopUntilStopped

                End If

            End If

        End With

    End If

	EvtCounter = EvtCounter + 1

End Sub

関連項目

Application オブジェクト

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

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