'Speak'メソッドは失敗しました

Question

よろしくお願いします
エクセルは２０１３、WIN8.1です

PCからアンプにUSB接続でスピーカーを鳴らしています
アンプの電源を入れ忘れると次のエラーが出ます
実行時エラー '-2147200966(8004503a)':
'Speak'メソッドは失敗しました:'Speech'オブジェクト　

マクロは次のように書いています
On Error Resume Next
Application.Speech.Speak "test", True  

これはハードのエラーなので、エラー処理は無理でしょうか

WindFaller · Accepted Answer

こんにちは。

おまたせしてすみません。今回は、私自身が、学ばせていただきました。

お書きになっていたコードを私なりに書き換えてみました。
ユーザー定義関数ですが、ちょっと工夫をしてみました。
何も入れない状態ですと、数値を吐き出し、名称を入れると、その名称を調べます。

'//
Sub CheckSoundDevice()
Dim DevName As String
DevName = ""　　'"SONY"
If GetSoundDevices(DevName) Then
　Application.Speech.Speak "テスト　テスト", True
Else
MsgBox DevName & " OFF"
End If
End Sub

Function GetSoundDevices(Optional ByVal soundDevice As String) As Variant
'空白値ですと、
　Dim MesStr As String
　Dim objLocator As Object
　Dim objService As Object
　Dim objClassSet As Object
　Dim objClass As Object
　Dim iflg As Variant

'ローカルコンピュータに接続する。
　Set objLocator = CreateObject("WbemScripting.SWbemLocator")
　Set objService = objLocator.ConnectServer
　Set objClassSet = objService.ExecQuery("Select * From Win32_SoundDevice")
　If soundDevice = "" Then
　　iflg = objClassSet.Count '数値を出力
　Else
　　For Each objClass In objClassSet
　　　If InStr(1, objClass.Name, soundDevice, vbTextCompare) > 0 Then
　　　　iflg = True　'True/False を出力
　　　End If
　　Next
　End If
　GetSoundDevices = iflg
　Set objClassSet = Nothing
　Set objClass = Nothing
　Set objService = Nothing
　Set objLocator = Nothing
End Function

WindFaller · Answer

今、読んだだけですが、思わくが当たりましたので、これで出来ます!
ちょっと今、手が離せないことがありますが、後ほど、マクロを纏めてみます。
締めないでください。

WindFaller · Answer

試しに、このマクロで、device の　Dead or Alive の違いが出るでしょうか？

Sub GetSounddevice()
　Dim MesStr As String
　Dim objLocator As Object
　Dim objService As Object
　Dim objClassSet As Object

'ローカルコンピュータに接続する。
　Set objLocator = CreateObject("WbemScripting.SWbemLocator")
　Set objService = objLocator.ConnectServer
　Set objClassSet = objService.ExecQuery("Select * From Win32_SoundDevice")

For Each objClass In objClassSet
　　MesStr = MesStr & "Name: " & objClass.Name & vbCrLf
　Next
　MsgBox MesStr
　Set objClassSet = Nothing
　Set objClass = Nothing
　Set objService = Nothing
　Set objLocator = Nothing

End Sub

WindFaller · Answer

すみませんでした。
こちらで再現性が取れないのと、最近、事情があって昼間の数時間しか、本当の集中的な時間が取れないのです。それで、今、二つの方法を考えている最中です、
ひとつは、Win32 API で、再生デバイスを取得する方法と、もうひとつは、WMI に方法はなかったか、情報を取れないかと考えています。ご自身でも、可能かもしれませんね。
ネット検索で、StackOverFlow 掲示板にもあるにはあるのですが、解決策が見えてきません。

必ず、もう一度、可能・不可能の結果はお知らせします。

mike_g · Answer

maamaaさん、
私がマクロ音痴な故に、恥晒しなことをして仕舞い、反省しています。
大変無礼なコメントを差し上げたことを、深くお詫び申し上げます。

WindFallerさん、
ご指摘、ありがとうございました。

WindFaller · Answer

まず、#1のmike_(g)さんへ

>質問内容の何処が Excel と関係があるのでしょうか？

Application.Speech.Speak "test", True
このApplication は、一般的には、Excelのことです。

本題です。
この質問は、
>これはハードのエラーなので、エラー処理は無理でしょうか
つまり、音声装置(sound device)の dead or alive をAPI等を使って検査する方法かとは考えたのですが、Application.Speech ですと、その戻り値がありません。同様の質問は、ネット検索でも見つかるのですが、その解決手段が見当たりません。

そこで、ひとつの提案としては、Speech オブジェクトではなく、同じものを経由を変えてSAPI を使ってみたらどうかと考えています。あいにく、私のところでは、SAPIのStatus など調べてみたものの、出てきませんでした。それに、エラーがでませんので、エラートラップで挟むぐらいしかアイデアがありません。

Sub SpeakTest()
　Dim objSpch As Object
　Dim SAPIVoice As SpVoice　'参照設定：Microsoft Speech Object Library
　Set SAPIVoice = New SpVoice
　Const jpSENTENSE As String = "わたしは月のうさぎ"
　Const enSENTENSE As String = "I am Pretty Guardian Salor-Moon"
　Const JP As String = "411"
　Const EN As String = "409"
　On Error Resume Next
　SAPIVoice.Speak "<xml><lang langid=""" & JP & """>" & jpSENTENSE
　SAPIVoice.Speak "<xml><lang langid=""" & EN & """>" & enSENTENSE
　On Error GoTo 0
End Sub

mike_g · Answer

質問内容の何処が Excel と関係があるのでしょうか？
「アンプの電源を入れ忘れ」がどうして此処(Excel)と関係ありと思うのですか？

'Speak'メソッドは失敗しました

こんにちは。

今、読んだだけですが、思わくが当たりましたので、これで出来ます!

試しに、このマクロで、device の Dead or Alive の違いが出るでしょうか？

すみませんでした。

maamaaさん、

まず、#1のmike_(g)さんへ

質問内容の何処が Excel と関係があるのでしょうか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

試しに、このマクロで、device の　Dead or Alive の違いが出るでしょうか？