V Exceli 5 a 95 je možné pripojiť poznámky k bunke pomocou zvukového súboru.
Túto zvukovú poznámku je možné prehrať otvorením dialógového okna na úpravu poznámok k bunke.
Nasledujúce makro vám môže prehrať aj zvukovú poznámku pripojenú k bunke:
Sub PlaySoundNotesInExcel95 (CellAddress As String) „iba pre Excel 5 a 95, ak nie je aplikácia. CanPlaySounds potom skončí Sub On Error Resume Next“ v prípade, že neexistuje rozsah zvukových poznámok (CellAddress). SoundNote.Play on Error GoTo 0 End Sub
Excel 97 alebo novší už nepodporuje používanie zvukových poznámok.
S nižšie uvedenými makrami je možné vytvoriť riešenie na dosiahnutie rovnakého účinku:
Verejná deklaračná funkcia sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) Ako dlhý Sub PlayWavFile (WavFileName ako reťazec, čakať ako booleovský) Ak Dir (WavFileName) = "" Then Exit Podradený „žiadny súbor na prehratie, ak počkáte, potom“ prehrá zvuk pred spustením akéhokoľvek kódu sndPlaySound WavFileName, 0 inak „prehrá zvuk pri spustenom kóde sndPlaySound WavFileName, 1 koniec ak koniec Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)“ riešenie prehrávania zvukových poznámok v Exceli 97 alebo novšom Dim SoundFileName ako reťazec SoundFileName = "" Pri chybe Pokračovať ďalej "k chybe dôjde, ak bunka nemá poznámku SoundFileName = Rozsah (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName =" "Then Ukončiť podpoložku „žiadna poznámka k bunke, ak je InStr (1, SoundFileName, Chr (10))> 0 Potom„ poznámka obsahuje prerušenie riadka “použite prvý riadok ako názov súboru SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Koniec, ak PlayFileWav SoundFileName, False End Sub
Ako vytvoriť zvukovú poznámku:
Vložte komentár k bunke kliknutím pravým tlačidlom myši na bunku a vyberte Vložiť komentár ….
Do komentára k bunke zadajte úplný názov súboru a cestu k zvukovému súboru, ktorý sa má prehrať v prvej vete.
napr. C: \ Názov priečinka \ Soundfilename.wav.
Ak chcete okrem zvukového názvu súboru pridať aj písomnú správu, za názvom súboru stlačte kláves ENTER
vytvoriť novú vetu v komentári. Pridajte text, ktorý chcete, do novej vety.
Makro PlaySoundNotesInExcel97 je možné aktivovať pomocou eventmacro Worksheet_SelectionChange (),
tým sa zvuková poznámka prehrá vždy, keď používateľ aktivuje bunku zvukovou poznámkou.
