Excel VBA質問箱 IV

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

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


10301 / 13644 ツリー ←次へ | 前へ→

【22566】コントロールのmadiaplayerの操作マクロを教えてください。 おっさん 05/2/23(水) 21:54 質問[未読]
【22574】Re:コントロールのmadiaplayerの操作マクロ... IROC 05/2/24(木) 8:43 回答[未読]
【22621】Ontimeがうまく使えません おっさん 05/2/24(木) 21:56 質問[未読]

【22566】コントロールのmadiaplayerの操作マクロ...
質問  おっさん  - 05/2/23(水) 21:54 -

引用なし
パスワード
   コントロールのmadiaplayerの操作マクロを教えてください。

先般、Madiaplayerの演奏の繰り返しを質問しましたところ、do Loop文では!
とのご指導がありました。当方余りなれておりませんので掲示板で検索して
このループ文が参考になるかと思うものがあり、次のような文を書きました

Private Sub CommandButton3_Click()
Dim Name As String
    
  For i = 1 To 3
   Name = Worksheets("ケース2").Range("A1")
    WindowsMediaPlayer1.URL = Name
      
     Do
      DoEvents
    Loop Until WindowsMediaPlayer1 _
      .playState = wmppsStoppe    
   If Worksheets("ケース2").Range("A3") = 0 Then Exit Sub
  Next 
End Sub

シートA1にMp3ファイルのアドレスが記入してあります。
A3に0を入れたとき終了するように書いたつもりです。    

*3回リピートするつもりですが、1回の演奏でMadiaplayerは演奏が止まり「停止」と表示されますが。しかし、Madiaplayerは実行中となっています。

教えてください。

1 Madiaplayerに関する停止・再生などの操作マクロを
2 演奏を繰り返すにはどうしたらよいのでしょうか
  回数を指定しなくても良いのです。何回も回っても、停止する時にMadiaplayerのプロパティの「URL]に「""」をコマンドボタンで挿入すると
  Madiaplayerは、「準備完了」が表示され「実行中」も出ません。
3 掲示板の掲載マクロを参考にさせていただきましたが、
  Loop Until WindowsMediaPlayer1 .playState = wmppsStoppe    
  のplayState = wmppsStoppeがよく分かりません。

 子ども会の写真をイベントの時、地域の方々に公開する写真掲示のファイルをつっくて下ります。今、手探りで行っていますので未熟者と思われますでしょうがご指導をお願いいたします。

又、WindowsMediaPlayerを使わずにMp3を繰り返し演奏し停止できますでしょうか?
 勉強しますのでよろしく願います。

【22574】Re:コントロールのmadiaplayerの操作マク...
回答  IROC  - 05/2/24(木) 8:43 -

引用なし
パスワード
   >WindowsMediaPlayerを使わずにMp3を繰り返し演奏し停止できますでしょうか?

曲の時間が分かっているなら、
一定時間後にOntimeで再度マクロを実行してはいかがですか?

【22621】Ontimeがうまく使えません
質問  おっさん  - 05/2/24(木) 21:56 -

引用なし
パスワード
   ▼IROC さん:
>>WindowsMediaPlayerを使わずにMp3を繰り返し演奏し停止できますでしょうか?
>
>曲の時間が分かっているなら、
>一定時間後にOntimeで再度マクロを実行してはいかがですか?

*IROCさん御指導ありがとうございます。

 Ontimeメソッドを使用とのことですが、ヘルプで調べましたところ
 −−−−−−−−−−−−−−−−−−
 次の使用例は、午後 5 時に my_Procedure を実行します。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
 −−−−−−−−−−−−−−−−−−−−
とありました。
my_Procedure"はプロシージャでしょうか?

今、演奏のコードを次のようにしますと
Private Sub CommandButton1_Click()
Dim Name As String
    Name = Worksheets("ケース2").Range("A1")
    WindowsMediaPlayer1.URL = Name
End Sub

 *Ontim は、どのように記載するすると繰り返すことができるのでしょうか?
   を
Private Sub CommandButton1_Click()
Dim Name As String
    Name = Worksheets("ケース2").Range("A1")
    WindowsMediaPlayer1.URL = Name
   Application.OnTime Now + TimeValue(00:00:45"), "CommandButton1_Click"
End Sub
とすると、
「マクロ "C:\・・・\WindowsMadiaPlayer1.xls".!Comandbutton_Clickが見つかりません」と表示されます。
 又、
Application.OnTime Now + TimeValue(00:00:45"), WindowsMediaPlayer1.URL = Name
としても、同じです。
初歩的な質問で申し訳ありませんが御指導ください。
又、繰り返しは数回したく思っております。

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