EZCEL2002のVBAにSpeakステートメントがありますが、VBでは、どのようにすれば、音声の読みあげを
することができるのでしょうか?　VB6.0 SP5 WIN-XP
過去ログに同様の質問がありましたが、解答が見つかりませんでした。

> EXCEL2002のVBAにSpeakステートメントがありますが、VBでは、どのようにすれば、音声の読みあげを
> することができるのでしょうか?　VB6.0 SP5 WIN-XP

Microsoft Voice Text コントロール( Vtext.dll )を、フォームに貼り付けて、
  Private Sub Command1_Click()
    TextToSpeech1.Speak Text1.Text
  End Sub
という感じで。

> > EXCEL2002のVBAにSpeakステートメントがありますが、VBでは、どのようにすれば、音声の読
みあげを
> > することができるのでしょうか?　VB6.0 SP5 WIN-XP
>
> Microsoft Voice Text コントロール( Vtext.dll )を、フォームに貼り付けて、
>   Private Sub Command1_Click()
>     TextToSpeech1.Speak Text1.Text
>   End Sub
> という感じで。

魔界の仮面弁士様
早速のご回答ありがとうございます。残念ながら、VText.dllが当機にはインストールされておりません
Microsoft社のDawnLoadページに当たってみたのですがよくわかりませんでした。入手方法がお分かりで
したら教えていただけませんでしょうか?

プロジェクト→コンポーネント→コントロール　で　Microsoft Voice Text が
見つかりませんか、WinXP なら標準で入っているかと思うのですが？
コントロールパネルに[音声認識]がありませんか。？
私の環境では２台共入ってます。

下記コードを試してもエラーがでますか（但し、Excel2002 が必須）
Private Sub Command1_Click()
    CreateObject("Excel.Application").Speech.Speak "こんにちは"
End Sub


因みに、下記設定だけでは日本語の読み上げはできないし、それらしい
プロパティも見受けられません。日本語の読み上げもできるのでしょうかね！

Private Sub Command2_Click()
    TextToSpeech1.Speak "こんにちは"
End Sub

#直リンクだと何なので修正しました。

> 因みに、下記設定だけでは日本語の読み上げはできないし、それらしい
> プロパティも見受けられません。日本語の読み上げもできるのでしょうかね！

下をダウンロードしたら、日本語の読み上げもできましたよ。
#当方の環境Win2K, VB6

<Microsoft Agent>
Japaneseを選択してダウンロード。(11ヶ国語から選択)
http://www.microsoft.com/msagent/downloads/user.asp#tts

<直リンク>
http://activex.microsoft.com/activex/controls/agent2/lhttsjpj.exe

>下をダウンロードしたら、日本語の読み上げもできましたよ。
ありがとうございます。

lhttsjpj.exe はインストールしていたのですが、それでも日本語の読み上げができなかったので
色々調べていて、TTSMode がデフォルトでは、ca141fd0-ac7f-11d1-97A3-006008273000 に
なっていてそれで日本語の読み上げができなかったようです。
TTSMode を変更したら日本語の読み上げもできるようになりました。

> プロジェクト→コンポーネント→コントロール　で　Microsoft Voice Text が
> 見つかりませんか、WinXP なら標準で入っているかと思うのですが？
> コントロールパネルに[音声認識]がありませんか。？
> 私の環境では２台共入ってます。
>
> 下記コードを試してもエラーがでますか（但し、Excel2002 が必須）
> Private Sub Command1_Click()
>     CreateObject("Excel.Application").Speech.Speak "こんにちは"
> End Sub
>
> 因みに、下記設定だけでは日本語の読み上げはできないし、それらしい
> プロパティも見受けられません。日本語の読み上げもできるのでしょうかね！
>
> Private Sub Command2_Click()
>     TextToSpeech1.Speak "こんにちは"
> End Sub

> コントロールパネルに「音声認識」はありますが、プロジェクト、コンポーネント
> コントロールのなかにはMicrosoft Voice Controlはありません。しかし、Excel
> 2002の機能を利用したステートメントは、有効に働きました。とりあえず、これを
> 利用させていただきます。ありがとうございました。