In Excel 5 en 95 is het mogelijk om met behulp van een geluidsbestand notities aan een cel toe te voegen.
Deze soundnote kan worden afgespeeld door het dialoogvenster voor het bewerken van celnotities te openen.
De onderstaande macro kan ook de geluidsnoot afspelen die aan een cel is gekoppeld:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' alleen voor Excel 5 en 95 Indien niet toepassing.
Excel 97 of hoger ondersteunt het gebruik van soundnotes niet meer.
Met onderstaande macro's is het mogelijk om een workaround te maken om hetzelfde effect te bereiken:
Public Declare-functie 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) = "" Dan afsluiten Sub ' geen bestand om af te spelen If Wait Then ' speel geluid af voordat je meer code uitvoert sndPlaySound WavFileName, 0 Else ' speel geluid af terwijl code wordt uitgevoerd sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String) ' tijdelijke oplossing voor het afspelen van geluidsnoten in Excel 97 of hoger Dim SoundFileName As String SoundFileName = "" On Error Resume Next ' er treedt een fout op als de cel geen notitie heeft SoundFileName = Range(CellAddress).Comment.Text On Error GoTo 0 If SoundFileName = "" Dan Exit Sub ' no cell note If InStr(1, SoundFileName, Chr(10)) > 0 Then ' the note bevat een regeleinde ' gebruik de eerste regel als de bestandsnaam SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Hoe maak je een geluidsnotitie:
Voeg een celopmerking in door met de rechtermuisknop in een cel te klikken en Opmerking invoegen… te selecteren.
Vul in de eerste zin van de celopmerking de volledige bestandsnaam en het pad naar het af te spelen geluidsbestand in,
bijv. C:\Mapnaam\Geluidsbestandsnaam.wav.
Als u naast de geluidsbestandsnaam een geschreven bericht wilt toevoegen, drukt u op de ENTER-toets na de bestandsnaam
om een nieuwe zin in de opmerking te maken. Voeg de gewenste tekst toe aan de nieuwe zin.
De macro PlaySoundNotesInExcel97 kan worden geactiveerd door de gebeurtenismacro Worksheet_SelectionChange(),
hierdoor wordt de soundnote afgespeeld elke keer dat de gebruiker de cel met de soundnote activeert.
