[[20190730203339]]　『メッセージボックスを自動で閉じるマクロを作った』（なぜ）　ページの最後に飛ぶ

『メッセージボックスを自動で閉じるマクロを作ったのですが』（なぜ）

いつもお世話になっております

https://tech.nikkeibp.co.jp/it/atcl/column/15/090100207/090700150/
を参考にメッセージボックスを自動で閉じるマクロを作ったのですが
うまくいきませんでした
なぜでしょうか
Sub テスト()
Dim WSH As Object
Set WSH = CreateObject("wscript.shell")
WSH.popup "自動で閉じる", 5, "テスト", vbInformation
Set WSH = Nothing
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

スマホからなので、テスト出来てないですが、
改行記号？の _ が抜けているような…

（もこな２） 2019/07/30(火) 21:06

あえて一行にしました
その他はは間違えてないと思いますが５秒たっても閉じないのです
（なぜ） 2019/07/30(火) 21:26

PCの前にもどりました。

改行の件は失礼しました。スマホでは、たまたま表示上改行されてみえていただけですね。
そうなると、残念ながら私にはわからないです。

提示されたコードをこちらで実行してみましたが、理由はわかりませんがエクセルにフォーカスがあると消えませんが、Chromeなど他アプリを操作していると5秒くらいで消えるのでその辺も関係あるのかもしれません。（Excel2007　/　Windows10　でテスト）

私の力ではこれ以上わかりませんので、外部オブジェクトに詳しい別の回答者さんをお待ちください。

（もこな２） 2019/07/30(火) 22:19

下記のようなQ&Aを見かけました。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11160049491
（転記の子） 2019/07/30(火) 22:25

私のＰＣでは1秒で実行すると

大体1～20秒ぐらいで消えますね。

実行ごとにバラバラ、消えないこともあるのかも

2びょうにすると消えないみたい（待ちきれません）

（ん） 2019/07/30(火) 22:32

皆さんありがとうございます
もう少し待ってみます
（なぜ） 2019/07/30(火) 22:38

不具合のようですから
転記の子さん紹介記事にある別の方法に
トライしたほうが賢明です。
壊れている既製のツールを直すのは不可能です。
（γ） 2019/07/31(水) 06:06

 vbsでpopup.

 Sub myPopup()
     Dim fn As String, x
     Const msg = "自動で閉じる", Seconds = 5, myType = 64
     fn = ThisWorkbook.Path & "\mypopup.vbs"
     Open fn For Output As #1
         Print #1, "createobject(""wscript.shell"").popup """ & msg & """," & Seconds & ",""テスト""," & myType
     Close #1
     x = CreateObject("WScript.Shell").Run(fn, , True)
     Kill fn
 End Sub
（seiya） 2019/07/31(水) 08:18

返信遅れました↑のコードで解決しました何かあればまたよろしくお願いします
（なぜ） 2019/08/03(土) 17:46

コメント返信：

[ 一覧(最新更新順) ]

[[20190730203339]] 『メッセージボックスを自動で閉じるマクロを作った』（なぜ） ページの最後に飛ぶ

[[20190730203339]]　『メッセージボックスを自動で閉じるマクロを作った』（なぜ）　ページの最後に飛ぶ