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 seguente può anche riprodurre la nota sonora allegata a una cella per te:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' solo per Excel 5 e 95 If Not Application.CanPlaySounds Then Exit Sub On Error Resume Next ' nel caso non ci sia 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 seguenti è 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) = "" Quindi esci Sub ' nessun file da riprodurre If Wait Then ' riproduce l'audio prima di eseguire altro codice sndPlaySound WavFileName, 0 Else ' riproduce l'audio mentre il codice è in esecuzione sndPlaySound WavFileName, 1 End If End Sub PlaySoundNotesInExcel97(CellAddress As String) ' soluzione alternativa per la riproduzione di note audio in Excel 97 o successivo Dim SoundFileName As String SoundFileName = "" On Error Resume Next ' si verifica un errore se la cella non ha una nota SoundFileName = Range(CellAddress).Comment.Text On Error GoTo 0 If SoundFileName = "" Then Exit Sub ' no cell note If InStr(1, SoundFileName, Chr(10)) > 0 Allora ' la nota contiene un'interruzione di riga ' usa la prima riga come nome del file 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 pulsante destro del mouse 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,
per esempio. C:\Nomecartella\Nomefileaudio.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.
