Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74716 / 76738 ←次へ | 前へ→

【6482】Re:エクセルを使ったMedia Playerの再生時刻...
回答  ichinose  - 03/7/4(金) 1:47 -

引用なし
パスワード
   ▼健太郎 さん:
こんばんは。
>エクセルにWindows Media Playerのファイルを貼り付けるには「挿入→オブジェクト→ファイルから」で実行できることは知っているのですが、例えばエクセルのセルに再生したい時刻が書かれていて、その時刻をクリックするとWindows Media Playerの再生したい時刻から自動的に再生することはできないでしょうか?
セルには、文字列ではない時刻が入っていることを前提とします。
時刻が入っているセルをダブルクリックしたときにスケージュールするようにしました。
仮にSheet1の場合,
Sheet1のシートモジュールに
'======================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'  実際には、時刻が入っているかチェックも必要です  
  Application.OnTime Target.Value, "sheet1.開始"
  Cancel = True
End Sub
'=========================================================
Sub 開始()
  MsgBox "動いた?"
  ' ここに再生コードを記述するようにしたらどうでしょうか?
End Sub

BeforeDoubleClickイベントが発生した回数分、スケージュールされますから
例えば、2回ダブルクリックすると、2回「開始」というプロシジャーが実行されてしまいます。
実際には、そのあたりの制御も必要かもしれません。
詳しくは,OntimeメソッドのHelpを参照してください。

0 hits

【6461】エクセルを使ったMedia Playerの再生時刻... 健太郎 03/7/2(水) 14:19 質問
【6482】Re:エクセルを使ったMedia Playerの再生時刻... ichinose 03/7/4(金) 1:47 回答

74716 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free