En Excel 5 y 95 es posible adjuntar notas a una celda usando un archivo de sonido. Esta nota de sonido se puede reproducir abriendo el cuadro de diálogo para editar notas de celda.

La siguiente macro también puede reproducir la nota de sonido adjunta a una celda para usted:

Sub PlaySoundNotesInExcel95(CellAddress As String)

' for Excel 5 and 95 only

If Not Application.CanPlaySounds Then Exit Sub

On Error Resume Next ' in case there is no soundnote

Range(CellAddress).SoundNote.Play

On Error GoTo 0

End Sub

Excel 97 o posterior ya no admite el uso de notas sonoras.

Con las macros siguientes, es posible crear una solución para lograr el mismo efecto:

Public Declare Function sndPlaySound Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub ' no file to play

If Wait Then ' play sound before running any more code

sndPlaySound WavFileName, 0

Else ' play sound while code is running

sndPlaySound WavFileName, 1

End If

End Sub

Sub PlaySoundNotesInExcel97(CellAddress As String)

' workaround for playing sound notes in Excel 97 or later

Dim SoundFileName As String

SoundFileName = ""

On Error Resume Next ' an error occurs if the cell doesn't have a note

SoundFileName = Range(CellAddress).Comment.Text

On Error GoTo 0

If SoundFileName = "" Then Exit Sub ' no cell note

If InStr(1, SoundFileName, Chr(10)) > 0 Then ' the note contains a line-break

' use the first line as the filename

SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr(10)) - 1)

End If

PlayFileWav SoundFileName, False

End Sub

Cómo crear una nota sonora:

Inserte un comentario de celda haciendo clic derecho en una celda y seleccione Insertar comentario …​.

Complete el nombre de archivo completo y la ruta al archivo de sonido que se reproducirá en la primera oración del comentario de la celda, p. Ej. C: \ Nombre de carpeta \ Nombre de archivo de sonido.wav.

Si desea agregar un mensaje escrito además del nombre del archivo de sonido, presione la tecla ENTER después del nombre del archivo para crear una nueva oración en el comentario. Agrega el texto que quieras a la nueva oración.

La macro PlaySoundNotesInExcel97 puede ser activada por la eventmacro Worksheet_SelectionChange (), esto hará que la nota sonora se reproduzca cada vez que el usuario active la celda con la nota sonora.