エクセルマクロで音声認識のプロパティの音声合成ＴＡＢ窓を開くには？

よろしくお願いします。いつもｇｏｏ皆さんのお世話になっています
win8.1でエクセル2013です。エクセルマクロで以下のことはできますか？

「コントロールパネル→すべてのコントロールパネル項目→音声認識のプロパティ→
音声合成ＴＡＢの窓を開く」

マウス等の窓を開くマクロサンプルは見つけたのですが音声認識が見つかりません
ＶＢＡから可能であれば、どなたか教えてください

No.2 ベストアンサー 回答者： enunokokoro 回答日時： 2015/12/20 18:25

参考にされた記事をよく読んでいますか？

http://www.moug.net/tech/exvba/0150095.html

引用
　　このサンプルを実行するには、あらかじめ
　　「Microsoft Shell Controls And Automation」
　　に参照設定しておきます

上記で書かれているように、メニューバーの[ツール]から[参照設定]にて
チェックを入れていないと、コンパイルエラーになります。
http://officetanaka.net/excel/vba/tips/tips100.htm

[ Microsoft Shell Controls And Automation ]にチェックを入れ[ OK ]
をして、マクロを実行すれば指定のダイアログが開くようになります。
[システムのプロパティ]ダイアログを開くサンプルが記載されています。
これを試してから、別のことができないかを質問するようにしてね。

この回答へのお礼

できました
ありがとうございます

エクセルは何でもできるんですね
感動ものです
ありがとうございました

他も勉強してみます
詳細に説明していただいてるのに、お礼が簡単で申し訳ありません

助かりました
また一歩進歩できました
大切に使わせていただきます

お礼日時：2015/12/20 18:58

No.1 回答者： enunokokoro 回答日時： 2015/12/20 13:49

こちら↓を参考にされたのでしょうか？

http://www.moug.net/tech/exvba/0150095.html

これと同じものなら、以下のコントロールパネルのコマンド一覧などを参考にして、実行ファイル名/コマンド名を指定すれば可能だと思います。
http://pasofaq.jp/windows/admintools/cpllistvist …
http://pasofaq.jp/windows/admintools/cpllist7.htm

マクロの例
Sub ShowControlPanelSample()
　Dim TempShell As Shell32.Shell

　Set TempShell = New Shell32.Shell
　TempShell.ControlPanelItem "C:\Windows\System32\Speech\SpeechUX\sapi.cpl"

　Set TempShell = Nothing
End Sub

この回答へのお礼

休日の貴重な時間に教えていただきありがとうございました

標準モジュールに置いて実行すると
「ユーザー定義型は定義されていません」のエラーになります
どうしたらよいでしょうか？

お礼日時：2015/12/20 17:41