動画再生のマクロ ハイパーリンクについて教えて下さい

エクセルVBA2003対応　の　マクロについて教えて下さい

現在エクセルのワークシートの「セルＣ１４」に、
MPG形式の動画が保存してあるパス
（例えば、C:\◎○×\ビデオ\あいう.mpg）が記載して
あり、それにハイパーリンクが設定してあります。

マクロで、それを自動実行し、終了するようにしたい為

Range("C14").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

と、プログラムし、マクロを実行すると、自動再生は
しますが、動画が終了しても、再生画面はそのまま残り
動画再生のプログラムは自動で終了しません。

どのようにプログラムを追加すれば、再生後、自動で
「動画再生のプログラム」をクローズさせることが
できるかどなたか教えて下さい

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

注：セルＣ１４をクリックすれば正常に動画を再生できるのは
　　確認済みです

No.1 回答者： KenKen_SP 回答日時： 2010/02/09 11:35

Hyperlinks の Follow メソッドの代わりに、Shell で Media Player を

Close オプションをつけて起動するとか

Sub sample()

　　Dim sAddr As String
　　
　　On Error Resume Next
　　sAddr = Range("C14").Hyperlinks(1).Address
　　
　　On Error GoTo Err_
　　sAddr = Chr(34) & sAddr & Chr(34)
　　Call Shell("mplay32.exe /play /close " & sAddr, vbNormalFocus)
　　
Bye_:
　　Exit Sub
Err_:
　　MsgBox Err.Description, vbCritical
　　Resume Bye_
End Sub

この回答へのお礼

教えて頂いたマクロ試して見ました。

成功です。
ありがとうございました。

この機会にShellを勉強します

お礼日時：2010/02/09 20:42