エクセルのマクロ（ＶＢＡ）で、指示をコード順に（前の処理の完了を待って）実行させたい

Question

###前提・実現したいこと

下記に記述したコードの順に、
アクション１（「サウンドが鳴ります」表示）
アクション２（サウンドの再生）
アクション３（サウンド終了を待って「サウンド終了です」のメッセージ表示）

###発生している問題・エラーメッセージ

うまくいかない点は下記の２つです。

問題１：サウンド再生アプリ（メディアプレーヤー）を手動で終了させないと、アクション３のメッセージボックスが表示されない。（サウンド再生完了時に自動的にアプリを終了させたい）

問題２：アクション１のコメントが、アクション３のメッセージボックスのＯＫボタンを押すまで表示されない。（最初に表示させたい）

###該当のソースコード

Option Explicit

Sub Sound_Macro()

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

'アクション２
Dim o_Shell
Set o_Shell = CreateObject("WScript.Shell")
o_Shell.Run "C:\windows\Media\Alarm06.wav", 1, True

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

End Sub

###試したこと

問題２については、アクション１の後に
DoEvents や
Application.Wait [Now()+"00:00:10"]
を挿入しましたがうまく機能しませんでした。

###補足情報(言語/FW/ツール等のバージョンなど)

Answer 1

問題１：サウンド再生アプリ（メディアプレーヤー）を手動で終了させないと、アクション３のメッセージボックスが表示されない。（サウンド再生完了時に自動的にアプリを終了させたい）

私は使ったことがありませんが、アプリは使わずAPIを使うことで、アプリ終了問題は解決できそうですね。

問題２：アクション１のコメントが、アクション３のメッセージボックスのＯＫボタンを押すまで表示されない。（最初に表示させたい）

アクション1をmsgbox("サウンドが鳴ります")としてしまえば、否応なしに以下の順番で処理ができそうな気がします。

• アクション1: 通知
• アクション2: 再生
• アクション3: 通知

---

mciSendStringの補足によれば、

mciSendString(TEXT("play sample.wav notify"), NULL, 0, hwnd);

これにより、sample.wavが再生されることになります。 notifyというキーワードを必須ではありませんが、 これを指定すると再生の終了時にメッセージを受け取ることができます。 この場合は、第4引数はウインドウハンドルを指定することになります。

だそうですので、notifyとhwndをうまく使って終了時のイベントを受け取ればもっといろいろできそうですね。

Comments

[Alps]

slashさん、ありがとうございます。

問題１については、提案いただいたAPIを使う方法で、”notify”の代わりに”wait”とすることで、サウンド再生終了を待って次のコードの処理に移るようです。ただ、APIを使う方法だと、サウンドを再生中はPCで他の操作ができなくなってしまうので、アプリで再生する方法でなんとかしたいと考えています。

問題２については、アクション１は図形上に表示させたいため、メッセージボックスへの切り替えは避けたいです。

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

[退会済みユーザー]

問題1
http://home.att.ne.jp/zeta/gen/excel/c04p04.htmにあるようなPlaySoundが操作を停止させない、というのをどこかで見ました。試す価値ありだと思います。

問題2
DoEventsで再描画できないでしょうか？