V Excelu 5 a 95 je možné připojit poznámky k buňce pomocí zvukového souboru.
Tuto zvukovou poznámku lze přehrát otevřením dialogu pro úpravu poznámek k buňce.
Níže uvedené makro vám také může přehrát zvukovou poznámku připojenou k buňce:
Sub PlaySoundNotesInExcel95 (CellAddress As String) „pouze pro Excel 5 a 95, pokud ne Application.CanPlaySounds Then Exit Sub On Error Resume Next“ v případě, že neexistuje rozsah zvukových poznámek (CellAddress). SoundNote.Play On Error GoTo 0 End Sub
Excel 97 nebo novější již nepodporuje používání zvukových poznámek.
S níže uvedenými makry je možné vytvořit řešení k dosažení stejného efektu:
Funkce Public Declare 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) = "" Then Exit Před spuštěním jakéhokoli kódu přehrajte zvuk „Žádný soubor k přehrání Pokud počkejte a poté“ sndPlaySound WavFileName, 0 Přehrávání zvuku při spuštění kódu sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String) řešení pro přehrávání zvukových poznámek v Excelu 97 nebo novějším Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'dojde k chybě, pokud buňka nemá poznámku SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Then Ukončit Sub 'no cell note If InStr (1, SoundFileName, Chr (10))> 0 Then' the note contains a line-break 'use the first line as the filename SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Jak vytvořit zvukovou poznámku:
Vložte komentář buňky kliknutím pravým tlačítkem na buňku a vyberte Vložit komentář….
Vyplňte úplný název souboru a cestu ke zvukovému souboru, který má být přehrán v první větě v komentáři buňky,
např. C: \ Název složky \ Soundfilename.wav.
Chcete-li kromě zvukového názvu souboru přidat i písemnou zprávu, stiskněte za názvem souboru klávesu ENTER
k vytvoření nové věty v komentáři. Přidejte do nové věty požadovaný text.
Makro PlaySoundNotesInExcel97 lze aktivovat pomocí eventmacro Worksheet_SelectionChange (),
tím se zvuková poznámka přehraje pokaždé, když uživatel aktivuje buňku zvukovou poznámkou.
