Código para que Excel Hable

Un saludo cordial!!!

Como bien sabes, Excel tiene muchas opciones interesantes, y en este artículo te voy a mostrar un sencillo código para que Excel Te hable!

CODIGO:

Sub Hablame()
     Application.Speech.Speak "Ejemplo para que Excel Hable"
End Sub

Tip: Puedes hacer que cuando Excel hable no se detenga y así puedes utilizar el archivo sin interrupciones. Para esto se utiliza el segundo parámetro de la función Speak

Sub Hablame()
     Application.Speech.Speak "Ejemplo para que Excel Hable", true
End Sub

EJEMPLOS DE USO QUE LE PUEDES DAR

1) Dar bienvenida con nombre de usuario del equipo

Puedes decirle a Excel que dé la bienvenida leyendo el nombre del usuario del equipo.

Puedes por ejemplo colocar el siguiente mensaje «Hola Felipe, este es el reporte para el mes de Febrero«

La siguiente función debes colocarla en la sección ThisWorkbook, esto hará, que apenas se abra el archivo de Excel, lea en voz alta el mensaje «Bienvenido» y luego dice el nombre del usuario del equipo donde se esta abriendo el archivo.

Private Sub Workbook_Open()
    Application.Speech.Speak "Bienvenido " & Environ("UserName") & ", este es el reporte para el mes de Febrero", true
End Sub

2) Hablar al cerrar el archivo de Excel

También puedes hacer que Excel hable apenas cierren el archivo.

En este caso el segundo parámetro de la función Speak lo dejamos en False, para que Excel alcance a decir el mensaje que le pusiste.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Speech.Speak "Adiós " & Environ("UserName"), false
End Sub

3) Leer en voz alta un texto largo mientras sigues trabajando

Puedes decirle a Excel que lea en voz alta a Excel mientras sigues trabajando, esto lo haces utilizando el segundo parámetro de la función Speak en True.

Sub leer_texto()
    Application.Speech.Speak Selection, True
End Sub

4) Detener la lectura

Puede pasar que le demos a leer un texto largo, y quisiéramos que se detuviera por alguna razón, para esto se utiliza el 4to parámetro de la función Speak, se debe colocar en True.

De esta forma, el texto que Excel esta leyendo va a ser reemplazado por un texto que tú le indiques, por esto se debe dejar en blanco el texto a leer. Mira el código

Sub detener_lectura()
     Application.Speech.Speak "", , , True
End Sub

DESCARGAR EJEMPLO

En el siguiente link puedes descargar un sencillo ejemplo, si tienes alguna duda dirígete al formulario de Contacto