Views

Histats

Vitrine

VBA Tips - Fazendo as nossas aplicações Falar - Speak




Lembrem-se...Nem tudo o que parece sem utilidade prática no momento, necessariamente é inútil.


Nenhuma dica é inútil. Saber o que é possível fazer pode ser a diferença entre termos uma solução que atenda ou declinarmos de um projeto.


Sub Speech()
Dim objSpeech As Object
Dim strPhrase As String
Dim intPitch As Integer
   
Set objSpeech = CreateObject("SAPI.SpVoice")

Let strPhrase = "Hello Andreh Loueess Bernardees - bernardess@gmail.com"
Let intPitch = 2

objSpeech.Speak "<pitch middle = '" & intPitch & "'/>" + strPhrase

Set objSpeech = Nothing
End Sub


Tags: VBA, speak, speech, falar, sound, voice,


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...