VBAによる動画再生

お世話になります。

エクセルのVBAを使って，動画を再生するマクロを組みました。以下のページを参考に作りましたが，エクセルのファイルを立ち上げると，自動的に動画再生が始まってしまいます。再生開始ボタンをクリックしたときに動画再生をしたいのですが，どうすればいいでしょうか。

皆様のお力をお貸しください。使っているのはエクセル2010，Windows8です。

よろしくお願いします。

参考URL
http://ch3cooh.jp/excel-2003/play-movie-using-ex …

No.3 ベストアンサー 回答者： kybo 回答日時： 2014/01/29 17:23

停止ボタンも作成し、以下のマクロを登録してみてください。

Sub CloseMovie()
WindowsMediaPlayer1.URL = ""
End Sub


Ｅｘｃｅｌを保存して終了する際は、必ず上記の停止ボタンを押して終了するようにしてみてください。

この回答への補足

昨日はありがとうございました。

VBAの最後に

Call WindowsMediaPlayer1.Close

を入れて，いったん強制的に再生をストップさせるようにしました。少し強引な手法でスマートなやり方ではないかもしれませんが，なんとかそれで解決いたしました。

今後ともよろしくお願いします。

ありがとうございました。

補足日時：2014/01/30 15:36

この回答へのお礼

何度も，本当にありがとうございます。

教えていただいたようにやってみましたが，うまくいきませんでした。

もう一度細かい部分などもしっかりとチェックして，No.1～No.3で教えていただいたことをやってみます。

お手を煩わせてしまってすみません。

大変感謝いたします。

お礼日時：2014/01/29 18:02

No.2 回答者： kybo 回答日時： 2014/01/29 15:36

>ThisWorkbookをチェックしてみましたが

ThisWorkbookではなく、[Windows Media Player Object]をダブルクリックして表示されるシートモジュールにコードは記述されていますか？

その参考URLの場合Sheet1です

この回答へのお礼

何度もありがとうございます。

windows media player objectをダブルクリックで表示されるところには

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

Sub PlayMovie()

Dim FilePath As String

Call WindowsMediaPlayer1.Close

FilePath = ThisWorkbook.Path & "\" & "ファイル名.wmv"

WindowsMediaPlayer1.URL = FilePath

Call WindowsMediaPlayer1.Controls.Play

End Sub

以上の記述しか見当たらないのですが。VBAには慣れていないのですみません。

お礼日時：2014/01/29 16:29

No.1 回答者： kybo 回答日時： 2014/01/29 13:07

私の環境では参考URLだけをしてもファイル立ち上げだけでは自動再生されません。

ThisWorkbookに以下のような記述があるんじゃないでしょうか？
消してみてください。

Private Sub Workbook_Open()
Call Sheet1.PlayMovie
End Sub

この回答へのお礼

ご教授ありがとうございます。

ThisWorkbookをチェックしてみましたが

FilePath = ThisWorkbook.Path & "￥" & "ファイル名.wmv"

WindowsMediaPlayer1.URL = FilePath

Call WindowsMediaPlayer1.Controls.Play

End Sub

となっているだけで，ご指摘いただいたような記述はありませんでした。相変わらず，自動的に再生されてしまいます。

お礼日時：2014/01/29 14:20