Reproducir sonido en celda Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

Deseamos reproducir sonido en celda Excel. Al seleccionar una celda o un rango se reproduzca un sonido o una locución.

En la carpeta “C:\Sonido\” disponemos de los archivos de sonido con formato .wav, en nuestro caso 01.wav, 02.wav, 03.wav. Y deseamos que se reproduzcan al seleccionar las celdas A1, D1 y F5.
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

  4. Escribir el código de la macro:

Private Declare 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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strCelda As String
strCelda = ActiveCell.Address(False, False)
Select Case strCelda

Case "A1"

WAVFile = "C:\Sonido\01.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

Case "D1"

WAVFile = "C:\Sonido\02.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

Case "F5"

WAVFile = "C:\Sonido\03.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

Case Else
End Select
End Sub

Podemos añadir más celdas anexando al código la instrucción:

Case "J8" ‘ (Celda deseada J8)

WAVFile = "C:\Sonido\02.wav" ‘ (Carpeta y archivo deseado)
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) ‘(Instrucción para reproducir)

Mediante una macro podemos reproducir sonido en celda Excel.

– Consultar: Leer con voz el contenido de las celdas Excel.

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA – Macros

Un comentario en “Reproducir sonido en celda Excel

  • Buen día. Me pareció buenísimo y re clara la explicación!!! Uds. podrán enviarme sonidos de teclas en formato wav?
    Gracias! Saludos. Iván

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *