| |
▼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
としても、同じです。
初歩的な質問で申し訳ありませんが御指導ください。
又、繰り返しは数回したく思っております。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
