自動で閉じるメッセージボックスを表示する方法
VBA標準のメッセージボックスは、利用者が[OK]ボタンを押すまで表示されます。
任意時間経過後に自動で閉じることができるメッセージボックスを表示します。
また、メッセージボックスをカスタマイズすることも可能です。
Dim WSH As Object Set WSH = CreateObject("WScript.Shell") WSH.Popup "自動で閉じるメッセージ", 3, "Title", vbInformation Set WSH = Nothing
【構文】
WSH.Popup(strText,[nSecondsToWait],[strTitle],[nType])
【パラメータの説明】
| 引数名 | 意味 |
|---|---|
| strText | メッセージボックスに表示する文字列。必ず指定します |
| nSecondsToWait | メッセージボックスを閉じるまでの時間。省略可能 |
| strTitle | メッセージボックスのタイトル。省略可能 |
| nType | アイコンやボタンの種類。省略可能 |
【引数nType】
| 数値 | VBAの定数 | 意味 |
|---|---|---|
| 0 | vbOKOnly | [OK]ボタンを表示 |
| 1 | vbOKCancel | [OK]ボタンと[キャンセル]ボタンを表示 |
| 2 | vbAbortRetryIgnore | [中止]ボタン、[再試行]ボタン、および[無視]ボタンを表示 |
| 3 | vbYesNoCancel | [はい]ボタン、[いいえ]ボタン、および[キャンセル]ボタンを表示 |
| 4 | vbYesNo | [はい]ボタンと[いいえ]ボタンを表示 |
| 5 | vbRetryCancel | [再試行]ボタンと[キャンセル]ボタンを表示 |
| 16 | vbCritical | アイコンを表示 |
| 32 | vbQuestion | アイコンを表示 |
| 48 | vbExclamation | アイコンを表示 |
| 64 | vbInformation | アイコンを表示 |
【戻り値】
| 数値 | VBAの定数 | 対応ボタン |
|---|---|---|
| 1 | vbOK | [OK]ボタン |
| 2 | vbCancel | [キャンセル]ボタン |
| 3 | vbAbort | [中止]ボタン |
| 4 | vbRetry | [再試行]ボタン |
| 5 | vbIgnore | [無視]ボタン |
| 6 | vbYes | [はい]ボタン |
| 7 | vbNo | [いいえ]ボタン |
※指定した時間が経過して自動的にメッセージボックスが閉じたときは、-1が返ります。
