• 締切済み

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

KenKen_SPの回答

  • KenKen_SP
  • ベストアンサー率62% (785/1258)
回答No.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

kame1010
質問者

お礼

教えて頂いたマクロ試して見ました。 成功です。 ありがとうございました。 この機会にShellを勉強します

この回答がついた質問に戻る
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 動画再生のマクロ.について教えて下さい

    エクセルVBA2003対応　の　マクロについて教えて下さい 現在　エクセルシートのセルC20とセルC10に、下記の場所に保存された動画を再生するようにハイパーリンクが設定してあります C20　→　C:\Documents and Settings\ビデオ\○×.mpg C10　→　C:\Documents and Settings\ビデオ\○×.vob 上記の環境の中で、下記のマクロsample1は、mpg動画の為、mplay32.exeで再生が出来ます。 しかし、マクロsample2は、VOB動画の為、VOB動画を再生するvlc.exeに書き変えてありますが,「ファイルが見つかりません」のエラーがでて、再生が出来ません。 ちなみに、vlc.exeの保存場所は、C:\Program Files\Vlc\vlc.exeに存在しています。 VOB動画を再生するためには、マクロsample2をどのように改造すればよいのか どなたか教えてください よろしくお願いいたします Sub sample1() Dim sAddr As String On Error Resume Next sAddr = Range("C20").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 Sub sample2() Dim sAddr As String On Error Resume Next sAddr = Range("C10").Hyperlinks(1).Address On Error GoTo Err_ sAddr = Chr(34) & sAddr & Chr(34) Call Shell("vlc.exe /play /close " & sAddr, vbNormalFocus) Bye_: Exit Sub Err_: MsgBox Err.Description, vbCritical Resume Bye_ End Sub

  • EXCELマクロでネットから資料をダウンロードしたい

    EXCELマクロを使って、Web上にある資料（ZIPファイル。毎日１００個から３００個）をダウンロードしたいと思っています。 EXCELの特定のセルに、縦にハイパーリンクを続けてコピーするところまでは手で行おうと思っています。 その後、 Range(\"F1\").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True で、ダウンロードすることまではできるのですが、 「保存しますか？」のダイヤログと、実際のセーブする時のダイヤログを止められません。 エラーでない限り、自動的に「はい」を選択し、次に進むようにさせたいのですが。 Application.DisplayAlerts = False でダイヤログを出さない。。。ということもできませんでした。 似たような操作をしている例はないか検索したのですが、見つかりませんでした。 素人な質問ですみません。 宜しくお願いいたします。

  • マクロでExcelパスワードを入力する方法

    教えて頂きたいのですが、 今Excelのフォームボタンにマクロを使って、 別のExcelファイルを開けるように設定していますが、 そのファイルにパスワードを掛けており、フォームボタンを押すと、 まず、そのパスワード入力のダイアログが出ます。 それを、フォームボタンを押したときのマクロに組み込み、 パスワード入力のダイアログを出さずに開く事って可能でしょうか？ 現在のフォームボタンに登録しているマクロの記述は下記の通りです。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub Macro11() ' ' Macro11 Macro ' マクロ記録日 : 2008/9/25 ユーザー名 : ************ ' ' Range("I29").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー I29にハイパーリンクにてアドレスを入力しているだけのものです。 宜しくお願いいたします。

  • ＶＢＡにて：ＩＥを閉じるにはどうすれば良いですか？

    セルＢ１にハイパーリンクが設定してあると、以下のコードにて、ＩＥを起動することが出来ます。 ＩＥが起動されたときに、リンク切れがあると”お探しのページはありません”と出ますが、この時にＩＥを閉じるようにしたいのです。 どのようにすれば実現できるか教えてください。 Range("B1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 　　　　

  • マクロの実行について　質問です。

    マクロ勉強中です！ 何時間も調べておりますが、 どうしても分からないので　お教え下さい（；＿；） 別シートの都道府県が混在するデータの中から、 3列の付属語が『下関』のものだけをコピーして、シート1に貼り付けるマクロを マクロの記録で　『下関』　というタイトル？にして作りました。（下記） これを実行するときに、マクロ名からではなく、 下の表の　R3C8セルの、『下関』　というハイパーリンクをクリックで　実行される・・・・ そんなふうにするには、どうしたらいいのでしょうか？ ご回答を　おまちしております。よろしくお願いします！ Sub 下関() ' ' 下関 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveWindow.SmallScroll Down:=-9 Range("B3").Select ActiveWindow.SmallScroll Down:=117 Range("B3:F137").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-9 Range("H3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Selection.Copy Sheets("Sheet1").Select Range("B3").Select ActiveSheet.Paste Range("C3").Select End Sub

  • エクセルのマクロのタイマー機能について

    エクセルのマクロのタイマー機能について エクセルのマクロで指定した時間ごとにＵＲＬをクリックするマクロを作っています。 下記のように作っていますが、もっと簡略化して短い記述にしたく思います。 ＵＲＬと指定時間は別のマクロで生成して、ＵＲＬはA1～A49まで、指定時間はB1～B490までセルに書きこむようにしています。 URLはA49まで読んだらA1から読み直して10往復して、490回使用します。 使用するセルを一回ごとにずらしていくだけなので、簡単に出来そうな気もしますが、マクロ初心者のためわかりません＞＜ 恐れ入りますが、ご教授いただければ幸いです。 ちなみにエクセル２００７で作成しています。 Sub 一定の時間間隔でマクロを実行する() '進捗状況を示すために準備する 指定時刻 = Now + TimeValue("0時00分05秒") 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規01", TimeValue(待ち時間) End Sub Sub 新規01() Range("A1").Select 'A列のURLを取得 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B1").Value 'B列の時間を取得 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規02", TimeValue(待ち時間) End Sub Sub 新規02() Range("A2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 指定時刻 = Now + Range("B2").Value 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "新規03", TimeValue(待ち時間) End Sub 　　　　　　　　↓ 　　　同様の記述を490回繰り返す 　　　　　　　　↓ Sub 新規建設490() Range("C1").Value = Now & " 終了" End Sub Private Sub 進捗状況を示すために準備する() Cells.Clear Columns("A:A").NumberFormatLocal = "yyyy/m/d h:mm:ss" Range("A1").Select ActiveCell.Value = Now & " 開始　　　　　　　" Columns("A:A").EntireColumn.AutoFit End Sub

  • VBAを使い、Web上からファイルをダウンロードしたいのですが・・・

    はじめまして。 今、日証金から日々の融資・貸株残高のデータ(CSV)を自動的に ダウンロードしてExcelに取り込むというマクロを作ろうとして いるのですが、うまくいきません。 具体的には、 range("A1").value = "http://www.jsf.co.jp/de/stock/dlcsv.php?target=balance&date=" & format(now,"YYYY-MM-DD") range("A1").select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True しかし、これだと「ファイルを保存」のWindowがあがってしまうので 処理が途中で止まります。 VBAで、あらかじめ指定したディレクトリに、指定したＵＲＬからファイルを自動的にダウンロードする には、どのようにすればよいのでしょうか？

  • セルに入力されているアドレスでハイパーリンクを開き

    http://officetanaka.net/excel/vba/tips/tips42.htm これを同じようにしてるのですが Sub test() Range("a1").Value = "http://www.goo.ne.jp/" Range("a1").Hyperlinks(1).Follow NewWindow:=True End Sub これだとエラーになるのですがどうしてでしょうか？ 「インデックスが有効範囲にありません。」 と言われます。 セルに入力されているアドレスでハイパーリンクを開きたいです。

  • マクロの実行について

    エクセルで料金計算をする、セル１Aに開始時刻を入力しセル１Bに終了時刻を入力するとセル１Cに料金が出力されるというマクロファイルを作りました。 現状１Aと１Bを入力しマクロ実行のスイッチを押して１Cを出力する、というやり方をしているのですが、スイッチを押す手間を省くために、１Aを入力しておいて１Bを入力したらスイッチを押さなくても自動的に１Cが出力されるようにしたいと考えています。 そのような設定をすることはできますか？ ご回答よろしくお願い致します。

  • エクセルVBAでのファイル転送

    任意のアドレスに添付ファイルを付けて送信完了までのコードを教えてほしいです。 Workbooks("***.xls").Sheets("***").Activate Range("D8").Select /上記セルにメールアドレスを設定してます。/ Selection.Hyperlinks(1).Follow _ NewWindow:=False, AddHistory:=True 送り先は設定されるけど添付ファイルの付け方が判らない。 Workbooks("***.xls").Activate Application.Dialogs(xlDialogSendMail).Show 添付ファイルは付けれるけど送り先の設定が判らない。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する