Я пытаюсь создать в Excel VBA всплывающее окно, которое автоматически закрывается после заданногоWaitTime в секундах Я справился с веткойАвтоматическое закрытие окна сообщения макроса VBA Excel" так же какэтот а такжеэтот ссылки. Я попытался применить метод из процитированного потока StackExchange; мой код следующий:

Sub TestSubroutine()

Dim TemporalBox As Integer
Dim WaitTime As Integer
Dim WScriptShell As Object

Set WScriptShell = CreateObject("WScript.Shell")

WaitTime = 1
TemporalBox = WScriptShell.Popup("The message box will close in 1 second.", _
WaitTime, "File processed")

End Sub

Однако это не похоже на работу, всплывающее окно отображается, но оно никогда не закрывается через 1 секунду.

Кто-нибудь замечает, что я делаю неправильно?

Редактировать # 1

На основании комментария @Skip Intro я обновил код:

Sub TestSubroutine()

Dim WaitTime As Integer

WaitTime = 1
CreateObject("WScript.Shell").Popup "The message box will close in 1 second.", _
WaitTime, "File processed"

End Sub

Однако это не решает исходную проблему, всплывающее окно не закрывается через 1 секунду.

Редактировать № 2

Это код, предложенный @Glitch_Doctor, однако он все еще не работает:

Sub TestSubroutine()

Dim TemporalBox As Integer
Dim WaitTime As Integer
Dim WScriptShell As Object
Dim test

Set WScriptShell = CreateObject("WScript.Shell")

WaitTime = 1
Select Case TemporalBox = WScriptShell.Popup("The message box will close in 1 second.", _
WaitTime, "File processed")
    Case 1, -1
End Select

End Sub