エクセル２００７のＶＢＡを使って、サウンドコントロールのフリーソフトを

質問

エクセル２００７のＶＢＡを使って、サウンドコントロールのフリーソフトを操作しようとしています。
具体的には、「３ＲＶＸ］というフリーソフトで、パソコンの音量をミュートしたいのです。
このソフトは起動させるとタスクトレーに常駐して、自分で割り当てたホットキーを押すとミュート、ミュート解除ができます。私は「Ｅｎｄ」キーを割り当てたので、「Ｅｎｄ」キーを押すとミュートされます。これは他のソフトで動画を見ている最中でも動作しますし、今ここに質問を入力している間でも動作します。
問題は、これをエクセルのＶＢＡ（マクロ）で動作させたいのですが、上手くいかないのです。
マクロの記述は次の通りです。

Sub タイマー開始()
MsgBox "タイマーがセットされました"
SendKeys "{END}"
End Sub

メッセージボックスは表示されます。「ＯＫ」を押すと、次の命令である「ＳｅｎｄＫｅｙｓ」が作動するはずなのですが、音声はミュートされません。
「Ｅｎｄ」キーの代わりに、「Ｄｅｌｅｔｅ」キーを割り当てて、マクロもSendKeys "{DELETE}"にしてみたところ、エクセル上でセルにあった文字が消えたので、「Ｄｅｌｅｔｅ」機能は作動しているのだと思います。ただ、エクセル内で作動してしまっているようです。
エクセルがアクティブであっても、手動で「Ｅｎｄ」キーを押せばミュートされるので、マクロでこれと同じ動作ができないものでしょうか？

※そもそも目的は、ＤＶＤ再生している状態で、ある時刻になったら音を消したり出したりするタイマー機能を作りたいというものです。それが実現できれば、他の方法でも構いません。

回答No.2

keithin · ベストアンサー

こちら
http://www.vector.co.jp/soft/winnt/art/se355641.html
でご提供されているMute.vbsというのをちょっと利用させていただいてみたら，なんか出来たっぽいです。

Sub Macro1()
’出典：
’http://www.vector.co.jp/soft/winnt/art/se355641.html
Dim dx
Set dx = CreateObject("MSWebDVD.MSWebDVD.1")
If dx.Volume = -10000 Then
　dx.Volume = -5000
Else
　dx.Volume = -10000
End If
Set dx = Nothing
End Sub

お礼

原理はまだ完全には理解できていませんが、とりあえず上手くいきました！
とても助かりました。ありがとうございました！

回答No.1

mimeu

SendKeys の情報は実行した時点でアクティブなウインドウに送られます。
たとえば直前に、「３ＲＶＸ」をアクティブにしていても
エクセルのマクロを起動した時点でエクセルがアクティブになってしまいますので
やっぱり「３ＲＶＸ」は "{END}" を受け取れないのです。

私はこういう場合 SendKeys の直前に SetForegroundWindow (HWND) ＡＰＩを使って
「３ＲＶＸ」をアクティブにしています。
必要な HWND （３ＲＶＸのハンドル）は GetWindow ＡＰＩなどを使って調べます。

お礼

丁寧な説明で分かりやすかったです。
上の方の方法を先に試したところ、上手くいったので解決しましたが、
親切にご回答して下さり、本当に助かりました。
ありがとうございます！