In Excel 5 e 95 è possibile allegare note a una cella utilizzando un file audio. Questa nota sonora può essere riprodotta aprendo la finestra di dialogo per la modifica delle note di cella.

La macro qui sotto può anche riprodurre la nota sonora allegata a una cella per te:

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 successivo non supporta più l’uso delle note sonore.

Con le macro sottostanti è possibile creare una soluzione alternativa per ottenere lo stesso effetto:

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

Come creare una nota sonora:

Inserisci un commento di cella facendo clic con il tasto destro in una cella e seleziona Inserisci commento …​.

Inserisci il nome completo del file e il percorso del file audio da riprodurre nella prima frase nel commento della cella, ad es. C: \ Foldername \ Soundfilename.wav.

Se vuoi aggiungere un messaggio scritto oltre al nome del file audio, premi il tasto INVIO dopo il nome del file per creare una nuova frase nel commento. Aggiungi il testo che desideri alla nuova frase.

La macro PlaySoundNotesInExcel97 può essere attivata da eventmacro Worksheet_SelectionChange (), questo farà suonare la nota sonora ogni volta che l’utente attiva la cella con la nota sonora.