Se puede agregar voz a Excel
Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas
Pablo, yo no tengo ni idea de Excel, pero la función creo que te puede ser de utilidad.
Dim oSpeech As Object
Dim miFrase As String
Set oSpeech = CreateObject("SAPI.SpVoice")
miFrase = "Aprovecho esta ocasión para saludar a Pablo( el de la Biblia no)"
oSpeech.Speak miFrase, SVSFlagsAsync
Set oSpeech = Nothing
En mi caso, en Access, lo pongo en el evento Después de actualizar de un cuadro de texto. Entonces cuando escribo algo y pulso Enter, suena ese mensaje. Tu tendrías que crear una macro usando, por ejemplo
If.... then
mifrase="Está despegando"
else
mifrase="Está aterrizando"
end if
Pero ya te digo que de Excel no tengo ni idea.
Si, en Excel se puede agregar audios, que en tu caso debiera 'escucharse' al cambio en algunas celdas.
Este tema lo tengo publicado en mi manual 500Macros (en sus 2 versiones). Puedo enviarte el libro con el ejemplo si me dejas un correo (los míos aparecen en la sección Contactos de mi sitio)
Lo que se necesita es tener los audios en formato wav. Y se controla el evento Change de la hoja donde estés registrando los movimientos. Por ej:
Private Sub Worksheet_Change(ByVal Target As Range) 'omito filas donde haya títulos If Target.Row < 4 Then Exit Sub 'no se ejecuta al cambio de más de 1 celda (x ej, al borrarlas) If Target.Count > 1 Then Exit Sub 'imagino que en col B se registran los despegues y en col C los arribos. If Target.Column = 2 Then Call playwav(2) ElseIf Target.Column = 3 Then Call playwav(3) End If End Sub
Y en un modulo tendrás la macro llamada playwav con el argumento que identifique qué audio debe escucharse:
'ATENCIÓN: si se está trabajando con Office de 32 bits quitar el texto PtrSafe Private Declare PtrSafe Function playsound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszname As String, _ ByVal hmodule As Long, ByVal dwflags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 Sub playwav(opcion) Dim wavfile As String, ruta As String 'asignar el archivo de sonido If opcion = 2 Then wavfile = "despegue.wav" ElseIf opcion = 3 Then wavfile = "aterriza.wav" End If 'ajustar la ruta de los audios ruta = ThisWorkbook.Path wavfile = ruta & "\" & wavfile Call playsound(wavfile, 0&, SND_ASYNC Or SND_FILENAME) End Sub
Sdos.
Elsa
I. Hola Pablo, yo no soy usuario habitual de VBA ni de Excel, pero como suelo comentar quisiera trasladarle la información que vi sobre su consulta por si pudiese serle de alguna utilidad mientras le atiende un experto de primera mano, el que podríamos citar en caso de que no reciba respuestas.
Le ruego me disculpe todas molestias de lectura y el tipo de respuesta, ánimo.
https://www.youtube.com/watch?v=DSltR90mkgc
https://www.youtube.com/watch?v=njCEo0TGBOw
https://www.youtube.com/watch?v=ozOIEGTkLdI