自動關閉訊息方塊

本範例會示範如何自動在一段指定時間後關閉訊息方塊。 本範例將顯示一個訊息方塊，然後在 10 秒後自動將其關閉。

範例程式碼提供者： Tom Urtis，Atlas Programming Management

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

關於參與者

MVP Tom Urtis 是 Atlas Programming Management 的創辦人，這家公司位於矽谷，專門提供 Microsoft Office 和 Excel 商務解決方案全套服務。 Tom 擁有 25 年的業務管理和開發 Microsoft Office 應用程式的經驗，並共同編寫了《Holy Macro! It's 2,500 Excel VBA Examples》。

支援和意見反應

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