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 ObjectDim strPhrase As StringDim intPitch As IntegerSet objSpeech = CreateObject("SAPI.SpVoice")Let strPhrase = "Hello Andreh Loueess Bernardees - bernardess@gmail.com"Let intPitch = 2objSpeech.Speak "<pitch middle = '" & intPitch & "'/>" + strPhraseSet objSpeech = NothingEnd Sub
Tags: VBA, speak, speech, falar, sound, voice,
Nenhum comentário:
Postar um comentário