[[20120510053840]] 『エクセルで動画再生ソフトをコントロールする』(いろどり) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『エクセルで動画再生ソフトをコントロールする』(いろどり)
エクセルVBAで、動画を取り込み再生し、(WindowsMediaPlayerなどで)
さらにそれを
例えばAのシーンが1:00、2:30、5:42,,,というように適当にあったとして自分で選択したそのAのシーンの時間をクリックして保存しておいて、あとから「Aのシーン」をクリックするとAのシーンばかりが再生される
また、スロー再生ができる
再生画面を上下に複数出し、二つのシーンを比較して見れる
というようなことがしたいです。
今は廃盤になっているそうなのですが、2005年頃にあった、スマイルワークス社さんのpoweranalysis(エクセルVBAをベースに作られている)のようなものを自分で作りたいのですが、、、、。
説明ヘタクソですみません。
よろしくお願いいたします。
Excel2003、XP

Excel2007、Vistaです。

http://msdn.microsoft.com/ja-jp/library/cc364941.aspx

 ここにWindowsMediaPlayerコントロールのリファレンスがありますから、これを使えば色々出来そうですよ!!
 例えば、シーンの選択は、

 Sub mediaply()

   With Me.WindowsMediaPlayer1
       .URL = ""
       .URL = "d:\画像.mpeg"
       With .Controls
          .currentPosition = 10 'ここで1:10なら、70と指定する
          .Play
          DoEvents: DoEvents
          Application.Wait Now() + TimeValue("00:00:03")
          DoEvents: DoEvents
          .pause
       End With
   End With
 End Sub

 検討してみてください

 ichinose


ありがとうございます!やってみます!

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.