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 las notas de la celda.
La macro a continuación también puede reproducir la nota de sonido adjunta a una celda para usted:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'solo para Excel 5 y 95 Si no es Application.CanPlaySounds Luego Salir de Sub en caso de error Reanudar Siguiente' en caso de que no haya un rango de notas sonoras (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 alternativa para lograr el mismo efecto:
Función de declaración pública sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName como cadena, _ ByVal uFlags tan largo) As Long Sub PlayWavFile (WavFileName como cadena, esperar como booleano) Si Dir (WavFileName) = "" Luego salga Sub 'no hay archivo para reproducir If Wait Then' reproducir sonido antes de ejecutar más código sndPlaySound WavFileName, 0 Else 'reproducir sonido mientras se ejecuta el código sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)' solución alternativa para reproducir notas de sonido en Excel 97 o posterior Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'se produce un error si la celda no tiene una nota SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Entonces Exit Sub 'sin nota de celda Si InStr (1, SoundFileName, Chr (10))> 0 Entonces' la nota contiene un salto de línea 'use la primera línea como nombre de archivo SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Finalizar si PlayFileWav SoundFileName, False End Sub
Cómo crear una nota sonora:
Inserte un comentario de celda haciendo clic con el botón 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 en el 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.
