２．音声読み上げ例

１．音声読み上げ例 　　１．Voice Text コントロールを使って音声読み上げ　　２．ExcelのSpeech.Speak で音声読み上げ　　３．SAPI を使って音声読み上げ ２． ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Excel 2010 Option　：[Option Explicit] 参照設定：　　　　　　　　　　　　　　　　　　参照設定方法参照 使用 API：Beep その他　：プロジェクト→コンポーネント→コントロールで Microsoft Voice Text にチェックを入れ、表示された 　　　　：コントロールをフォームに貼り付けて下さい。

１．音声読み上げ例

VB2005 〜用の方に掲載していた、音声読み上げ例３題 と同じ物です。 Option Explicit Private Sub Form_Load() 　　TextToSpeech1.Visible = False 　　'日本語の男性の声 　　'TextToSpeech1.TTSMode = "A778E061-A936-11d1-B17B-0020AFED142E" 　　'日本語の女性の声 　　TextToSpeech1.TTSMode = "a778e060-a936-11d1-B17B-0020AFED142E" End Sub Private Sub Command1_Click() 'Voice Text コントロールを使って音声読み上げ 　　TextToSpeech1.StopSpeaking 　　TextToSpeech1.Speed = 120　　　 '読み上げるスピード 　　TextToSpeech1.Speak "あいうえお VBレスキュー(花ちゃん)" End Sub Excel の機能を使って読み上げる事もできますが、起動に少し時間がかかります。 Private Sub Command2_Click() 　　CreateObject("Excel.Application").Speech.Speak "こんにちは" End Sub Speech Application Programming Interface を使っての音声読み上げ Private Sub Command3_Click() 'SAPI を使って音声読み上げ 　　Dim voic As Object 　　Set voic = CreateObject("SAPI.SpVoice") 　　voic.Speak "あいうえお VBレスキュー(花ちゃん)" 　　Set voic = Nothing End Sub 一応これで、上記環境下で音声読み上げを行えますが、日本語の男性の声は、有効になりませんでした。 XP とかでは、切り替えができたのですが、今は、PC によって違いがあるとか、そのための貴方のPCは、女性？男性とかで 話題になっているとかいないとか？

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)