プロが教える店舗&オフィスのセキュリティ対策術

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

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

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

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

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

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

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

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

gooドクター

A 回答 (1件)

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
    • good
    • 0
この回答へのお礼

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

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング