Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

Mostrando postagens com marcador sound. Mostrar todas as postagens
Mostrando postagens com marcador sound. Mostrar todas as postagens

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:
Tags: , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias