Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10324 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22462】メディアプレーヤーの操作マクロを教えてください おっさん 05/2/21(月) 21:28 質問[未読]
【22464】Re:メディアプレーヤーの操作マクロ かみちゃん 05/2/21(月) 22:27 回答[未読]
【22466】Re:メディアプレーヤーの操作マクロ おっさん 05/2/21(月) 22:51 お礼[未読]
【22462】メディアプレーヤーの操作マクロを教えて...
質問  おっさん  - 05/2/21(月) 21:28 -
引用なし
パスワード
   　初めて質問させていただきます。
「シートに貼り付けたWindows Mediaplayerを操作するマクロを教えてください。」
　子ども会等の写真をボタンで項目選択して見れるファイルを作成中ですが、この写真を表示する時に音楽を流したいと考えています。
各項目ごと違う曲を写真を見ている時間だけ演奏したいと思っています。
　
コマンドボタンでメディアプレーヤでMP3の音楽を流したいと思っています。

　シート「画面」に貼り付けたメディアプレーヤをセルA1のmp3ファイルを演奏するマクロを下記のように作りました。これで演奏できますが、同じ曲を繰り返す
マクロを教えてください。
　
　　演奏
　　 　Name = Worksheets("画面").Range("A1")
　　　 WindowsMediaPlayer1.URL = Name
　　停止
　　　WindowsMediaPlayer1.URL = ""

又、演奏する良いマクロがあれば教えてください。
【22464】Re:メディアプレーヤーの操作マクロ
回答  かみちゃん  - 05/2/21(月) 22:27 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 同じ曲を繰り返すマクロを教えてください。

同じ処理を繰り返すならば、
Do 〜 Loopです。
詳しくは、ヘルプで確認してください。
演奏を止めるタイミングなどが説明されていないので、詳しいマクロを書くことが
できません。
当然、Do 〜 Loopを単純に用いると無限に繰り返しますので、注意してください。
【22466】Re:メディアプレーヤーの操作マクロ
お礼  おっさん  - 05/2/21(月) 22:51 -
引用なし
パスワード
   ▼かみちゃん さん：
>こんにちは。かみちゃん　です。
>
>> 同じ曲を繰り返すマクロを教えてください。
>
>同じ処理を繰り返すならば、
>Do 〜 Loopです。
>詳しくは、ヘルプで確認してください。
>演奏を止めるタイミングなどが説明されていないので、詳しいマクロを書くことが
>できません。
>当然、Do 〜 Loopを単純に用いると無限に繰り返しますので、注意してください。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
　ありがとうございました。
　何か難しく考えておりました。
　ループで繰り返しを行います。
　メディアプレイの停止は写真を見るのを止め、メニュー画面に戻るボタンを押した時に停止するようにします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10324 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free