V Excelih 5 in 95 je mogoče zvočno datoteko pripeti v celico.
To zvočno opombo lahko predvajate tako, da odprete pogovorno okno za urejanje zapiskov celice.
Spodnji makro lahko za vas predvaja tudi zvočno opombo, pritrjeno na celico:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'samo za Excel 5 in 95, če ni aplikacija. CanPlaySounds Nato zapustite Sub On Error Resume Next', če ni razpona zvočnih opomb (CellAddress).
Excel 97 ali novejši ne podpira več zvočnih opomb.
S spodnjimi makri je mogoče ustvariti rešitev za dosego enakega učinka:
Javno razglasi funkcijo sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) Kot Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) Če Dir (WavFileNa Potem Ex Sub "ni datoteke za predvajanje, če počakate nato" predvajajte zvok, preden zaženete več kode sndPlaySound WavFileName, 0 Drugače "predvajajte zvok, medtem ko se koda izvaja sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)" rešitev za predvajanje zvočnih zapiskov v Excelu 97 ali novejšem Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'pride do napake, če celica nima opombe SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Potem Zaprite opombo brez celice Če je InStr (1, SoundFileName, Chr (10))> 0 Potem "opomba vsebuje prelom vrstice" uporabite prvo vrstico kot ime datoteke SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Kako ustvariti zvočni zapis:
Komentar celice vstavite tako, da v celici kliknete desno in izberete Vstavi komentar ….
Izpolnite celotno ime datoteke in pot do zvočne datoteke, ki jo želite predvajati v prvem stavku v komentarju celice,
npr. C: \ Ime mape \ Ime zvočne datoteke.wav.
Če želite poleg imena zvočne datoteke dodati še pisno sporočilo, pritisnite tipko ENTER za imenom datoteke
ustvariti nov stavek v komentarju. Novemu stavku dodajte želeno besedilo.
Makro PlaySoundNotesInExcel97 lahko aktivirate z eventmacro Worksheet_SelectionChange (),
tako se bo zvočni zapis predvajal vsakič, ko uporabnik aktivira celico z zvočnim zapisom.
