備忘録　（私の道具箱）

ＶＢＡ

VBA により VBS（WSH） を利用する

（１）２秒後、自動的に閉じるメッセージ

	WSH(Windows Script Host)の機能を使うことで実現できる。

	Sub Sample()
	    Dim objwsh As Object
	    Set objwsh = CreateObject("WScript.Shell")
	    objwsh.Popup "XXX の処理は成功しました！ 2秒後に、自動的に閉じます", 2, "Title", vbInformation
	    Set objwsh = Nothing
	End Sub

戻る