前の命令の実行が完了してから次を実行させたい

質問

エクセルシートに挿入－図形から長方形を挿入し、下記のマクロを設定しました。

図形をクリックしたところ、アクション１→２→３の順には実行されず、まず２と３が同時に実行され、１のコメントは３のメッセージボックスのＯＫを押した後に表示されました。
１の表示が３よりも後になるのは、１の処理に時間がかかるためかと思います。

まず１が表示され、２のサウンド再生が完了するまで待ってから３のメッセージ表示という形にしたいです。

よろしくお願いいたします。

Sub Macro1()

’アクション１
ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サウンドが鳴ります"

’アクション２
Shell "C:\Program Files\Windows Media Player\wmplayer.exe C:\windows\Media\Alarm06.wav", vbHide

’アクション３
MsgBox "サウンド終了です"

End Sub

回答No.1

nan93850673

>アクション１→２→３の順には実行されず

その様に見えているだけです。

先ず、「ActiveSheet.Shapes(1).TextFrame.Characters.Text = "サウンドが鳴ります"」の後に「DoEvents」を入れてください。これで「１の表示が３よりも後になる」は、治るでしょう。

アクション２のShellは「プログラムを起動するだけで、完了を待たない」関数なので、確実に１→２→３の順位実行している様に見せたいなら
http://hanatyan.sakura.ne.jp/vbhlp/tap_PrgEnd.htm
等を参考にしてください。

補足

nan93850673さん、ありがとうございます。
「DoEvents」を試してみましたが、残念ながら機能しませんでした。