Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

20 de junho de 2013

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

eBooks VBA na AMAZOM.com.br

Vitrine