Macro en VBA desde excel para que el PC hable - Sintesis de Voz con las lilbrerias de Windows

Macro en VBA desde excel para que el PC hable - Sintesis de Voz con las lilbrerias de Windows
Libreria
SAPI.spVoice


Hacer unas macros en VBA en excel y ensayar

Sub Hablar_voz()
Dim msg, sapi
Set sapi = CreateObject("sapi.spvoice")
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Speak "Hola Chucho"
Lol = MsgBox("Request done.")
End Sub


Sub david()
Dim david

'david 's Voice
Set david = CreateObject("SAPI.spVoice")
Set david.Voice = david.GetVoices.Item(0)
david.Rate = 2
david.Volume = 100

david.Speak "Mi nombre es David. It's nice to meet you!"
End Sub

Sub Zira()
Dim Zira

'Zira 's Voice
Set Zira = CreateObject("SAPI.spVoice")
Set Zira.Voice = Zira.GetVoices.Item(1)
Zira.Rate = 2
Zira.Volume = 70

Zira.Speak "My Name is Zira."
End Sub