エクセルの音声合成の速度を変える方法

Question

エクセルVBAで音声合成を用いてセルを読み上げています。読み上げの速度を変えるには通常コントロールパネルの音声合成から行いますが、職場のパソコンはシンクライアントのためコントロールパネルに音声合成が出てきません。

コントロールパネルを用いずにエクセルだけで音声合成のスピードを変える方法はないでしょうか。

Comments

[jinoji]

可能なら今のエクセルVBAを載せてもらったほうが回答されやすいと思います。

[zettai_sougo100]

失礼いたしました。
Application.Speech.Speak
です。
これだから、コントロールパネルでの調整が必要になるのかもしれません。
Sapiを用いると下記のとおり調整できますが、まだ、未知数の部分もあります。
第三の方法があれば更に試してみたいと思っております。
よろしくお願いいたします。

Answer 1

コントロールパネルに音声認識が出てこない、ということでしょうか。
コントロールパネルを開いて右上のボックスに「音声認識」と打ってご確認ください。
※「音声合成」ではありません。

それでもなければAPIを使えばいけるかもしれません。
文章を読み上げ

ただ、古い情報ですので現在の環境で適用できるかはわかりません。

Comments

[zettai_sougo100]

ご回答ありがとうございます。

＞※「音声合成」ではありません。
失礼しました。「音声認識」の誤りです。

ご紹介のサイトを参考に以下のようにしてみたところエクセル単体で速度変更が可能となりました。
大変ありがとうございました。

Sub 読む(word As String)

Dim SpeechObject As Object
Set SpeechObject = CreateObject("Sapi.SpVoice")
If Err Then Err.Clear: MsgBox "SAPIがインストールされていません": End
SpeechObject.Rate = 9 '速度設定
SpeechObject.Speak word ' 読み上げる

End Sub

Rate は1～９の間で速度が変わるようです。
Windows10環境では参照設定もせずに使うことができました。

問題は職場のパソコンで動作するかどうかですが、Tryしてご報告させていただきたいと思います。
何せ、コントロールパネルはコンピュータの簡単操作の一部以外全く表示されず、また、エクセルのBeep関数（OSの低水準アクセス？）すらも使えない設定としているようなので・・・・。

[radames1000]

規制があると色々面倒ですよね。
うまくいきますように。

[zettai_sougo100]

ようやく本日試すことができました。
結果は、大成功です。
速度も変更できるし、なによりも非同期で動作するため、連続して読み上げが可能です。

本当に助かりました。ありがとうございました。