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 = TrueEnd 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 StringLet SayThis = "VBA Microsoft Office Excel"Application.Speech.Speak (SayThis)
End Sub
Nenhum comentário:
Postar um comentário