エクセルＶＢＡで動画・音楽を再生する時

質問

発表資料作成のためエクセルにＶＢＡで動画と音楽をつけています。
Private Sub CommandButton3_Click()
WindowsMediaPlayer1.URL = "******.mp4"
WindowsMediaPlayer1.Controls.Play

End Sub

で簡単に書いているのですが、これだとエクセルファイルを開いた段階でファイルが動画が再生されてしまいかっこ悪いです。
ボタンを押したときに初めて再生されるようにするにはどのようにしたらよいでしょうか？

できれば、コピペだけでできるように組み立てあるものを教えていただけないでしょうか。

回答No.1

real beatin（@realbeatin）

こんにちは。

ユーザーフォーム上のWindowsMediaPlayerコントロールなら、
ご提示の記述のままでも使えますが、
シート上に配置したWindowsMediaPlayerコントロール、
ということでしたらば、以下のように。

' ' ///
Private Sub CommandButton3_Click()
　　With WindowsMediaPlayer1
　　　　.URL = "******.mp4"
　　　　.Controls.Play
　　' ' 再生終了を待機
　　　　Do While .playState <> wmppsStopped
　　　　　　DoEvents
　　　　Loop
　　' ' URL プロパティを初期化
　　　　.URL = ""
　　End With
End Sub
' ' ///