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,


Nenhum comentário:

Postar um comentário

diHITT - Notícias