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

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

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,

VBA Excel - Sua Planilha pode pronunciar palavras, textos e títulos - Speak method as it applies to the Speech object

Termo de Responsabilidade 

Talvez você não saiba, mas o seu MS Excel pode ler o conteúdo das células que acabou de digitar. Isso mesmo LER, por enquanto somente em inglês, mas já é um recurso interessante.

Copie o código abaixo em um módulo da sua planilha

Sub ReadOnNow()

    Let Application.Speech.SpeakCellOnEnter = True

End Sub

Pronto! Após clicar em qualquer célula da sua planilha que contenha um texto, este será lido em inglês.

Digamos que deseje que o conteúdo de uma célula específica seja lido:

Sub SayThisCell()

Cells(1, 1).Speak

End Sub

Suponha que deseje que uma frase seja pronunciada, mas esta não está dentro de uma célula específica:

Sub SayThisString()

Dim SayThis As String

Let SayThis = "VBA Microsoft Office Excel"

Application.Speech.Speak (SayThis)

End Sub

References: MSDN. Guiadoexcel.com.br

Tags: VBA, Office, Excel, read, speak, english, inglês, falar, ler, Speech, speak,