U programima Excel 5 i 95 moguće je priložiti bilješke ćeliji pomoću zvučne datoteke.
Ovaj zvučni zapis se može reproducirati otvaranjem dijaloga za uređivanje bilješki ćelije.
Donja makronaredba može vam reproducirati i zvučnu notu pričvršćenu na ćeliju:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'samo za Excel 5 i 95 Ako nije aplikacija.CanPlaySounds Zatim izađite iz programa Sub On Error Resume Next' u slučaju da nema raspona zvučnih bilješki (CellAddress).
Excel 97 ili noviji više ne podržava upotrebu zvučnih bilješki.
Pomoću dolje navedenih makronaredbi moguće je stvoriti zaobilazno rješenje za postizanje istog učinka:
Javno proglasi funkciju 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 (WavFileNa then Ex) Sub "nema datoteke za reprodukciju Ako čekate onda" reproducirajte zvuk prije izvođenja bilo kojeg koda sndPlaySound WavFileName, 0 Inače "reproducirajte zvuk dok je kod pokrenut sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)" zaobilazno rješenje za reprodukciju zvučnih bilješki u Excelu 97 ili novijim Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'dolazi do pogreške ako ćelija nema napomenu SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Zatim Izađi iz pod-bilješke bez ćelije Ako je InStr (1, SoundFileName, Chr (10))> 0 Tada 'napomena sadrži prijelom retka' koristite prvi redak kao naziv datoteke SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Kraj ako je PlayFileWav SoundFileName, False End Sub
Kako stvoriti zvučnu bilješku:
Umetnite komentar ćelije klikom desne tipke miša u ćeliju i odaberite Umetni komentar ….
Unesite prvi naziv datoteke i put do zvučne datoteke koja će se reproducirati u prvoj rečenici u komentaru ćelije,
npr. C: \ Naziv mape \ Zvučna datoteka.wav.
Ako želite dodati zvučnu poruku pored naziva zvučne datoteke, pritisnite tipku ENTER iza naziva datoteke
za stvaranje nove rečenice u komentaru. Novoj rečenici dodajte tekst koji želite.
Makro PlaySoundNotesInExcel97 može se aktivirati eventmacro Worksheet_SelectionChange (),
ovo će zvučnu bilješku reproducirati svaki put kada korisnik aktivira ćeliju zvučnom bilješkom.
