În Excel 5 și 95 este posibil să atașați note la o celulă folosind un fișier audio.
Această notă sonoră poate fi redată deschizând dialogul pentru editarea notelor celulare.
Macro-ul de mai jos poate reda și nota sonoră atașată la o celulă:
Sub PlaySoundNotesInExcel95 (CellAddress As String) "numai pentru Excel 5 și 95 Dacă nu este aplicație. Poate PlaySounds, apoi ieși din Sub On Error Resume Next" în cazul în care nu există un interval de note sonore (CellAddress). SoundNote. Play On Error GoTo 0 End Sub
Excel 97 sau o versiune ulterioară nu mai acceptă utilizarea notelor sonore.
Cu macro-urile de mai jos este posibil să creați o soluție pentru a obține același efect:
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 (WavFileNit) = " Sub 'fără fișier de redat Dacă așteptați apoi' redați sunetul înainte de a rula un alt cod sndPlaySound WavFileName, 0 Altfel 'redați sunetul în timp ce codul rulează în Excel 97 sau o versiune ulterioară Dim SoundFileName As String SoundFileName = "" La eroare Reîncepeți următorul "apare o eroare dacă celula nu are o notă SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName =" "Atunci Exit Sub 'fără celulă notă Dacă InStr (1, SoundFileName, Chr (10))> 0 Apoi' nota conține o întrerupere de linie 'utilizați prima linie ca nume de fișier SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Cum să creați o notă sonoră:
Introduceți un comentariu de celulă făcând clic dreapta într-o celulă și selectați Inserați un comentariu ….
Completați numele complet al fișierului și calea către fișierul sonor care va fi redat în prima propoziție din comentariul celulei,
de exemplu. C: \ Foldername \ Soundfilename.wav.
Dacă doriți să adăugați un mesaj scris pe lângă numele fișierului sonor, apăsați tasta ENTER după numele fișierului
pentru a crea o nouă propoziție în comentariu. Adăugați textul dorit la noua propoziție.
Macro PlaySoundNotesInExcel97 poate fi activat de eventmacro Worksheet_SelectionChange (),
acest lucru va face ca nota sonoră să fie redată de fiecare dată când utilizatorul activează celula cu nota sonoră.
