PowerPoint VBAでの待機処理【初心者向け解決ガイド】

2025.03.18

皆さん、こんにちは。今日は、PowerPointでVBAを使ってスライドショーを自動化する際に役立つ「待機処理」についてお話しします。例えば、スライド間の切り替えに一定の間隔を設けたいときなどに、この技術が役立ちます。

PowerPoint VBAでの待機処理とは？
Waitメソッドの使用
Sleep関数の使用
DoEventsを使用した非ブロッキングな待機
よくある質問や疑問
1. Q1: 待機中にPowerPointが応答しなくなるのはなぜですか？
2. Q2: ミリ秒単位での待機は可能ですか？
今すぐ解決したい！どうしたらいい？
まとめ

PowerPoint VBAでの待機処理とは？

PowerPointのイメージ

まず、待機処理とは何かを簡単に説明します。これは、プログラムの実行を一時的に停止し、指定した時間が経過した後に再開することを指します。PowerPointのVBAでは、以下の方法で待機処理を実現できます。

Waitメソッドの使用

ExcelのVBAには、`Application.Wait`メソッドがありますが、PowerPointには直接対応するメソッドがありません。しかし、ExcelのWaitメソッドを利用することで、PowerPointでも待機処理を実現できます。以下にその方法を示します。

vba

Sub WaitExample()

    Dim xlApp As Object

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Wait Now + TimeValue("00:00:05") ' 5秒間待機

    Set xlApp = Nothing

End Sub

このコードでは、Excelの`Application.Wait`メソッドを呼び出して、5秒間の待機を実現しています。ただし、この方法では待機中にPowerPoint全体が操作不能になる可能性がありますので、注意が必要です。

Sleep関数の使用

もう一つの方法として、WindowsのAPI関数である`Sleep`を使用する方法があります。これは、ミリ秒単位で待機時間を指定できるため、より細かい制御が可能です。以下にその例を示します。

vba

#If VBA7 Then

    ' 64ビット環境用の宣言

    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

#Else

    ' 32ビット環境用の宣言

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#End If

Sub SleepExample() Sleep 5000 ' 5000ミリ秒（5秒）待機 End Sub

この方法では、指定した時間だけプログラムの実行を停止しますが、その間、他の操作も停止する点に注意が必要です。

DoEventsを使用した非ブロッキングな待機

待機中もPowerPointの操作を可能にするためには、`DoEvents`を使用した方法があります。以下にその例を示します。

vba

Sub NonBlockingWait(seconds As Double)

    Dim endTime As Double

    endTime = Timer + seconds

    Do While Timer < endTime
        DoEvents ' 他のイベントを処理
    Loop
End Sub

この方法では、指定した秒数だけ待機しますが、その間も他の操作が可能です。