I Excel 5 og 95 er det muligt at vedhæfte noter til en celle ved hjælp af en lydfil.
Denne lydnote kan afspilles ved at åbne dialogen til redigering af cellennoter.
Makroen herunder kan også afspille lydnoten, der er knyttet til en celle for dig:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'kun til Excel 5 og 95 Hvis ikke Application.CanPlaySounds Afslut derefter Sub On Error Resume Next' hvis der ikke er noget lydnoteområde (CellAddress) .SoundNote.Play On Error GoTo 0 End Sub
Excel 97 eller nyere understøtter ikke længere brug af lydnoter.
Med makroerne herunder er det muligt at oprette en løsning for at opnå den samme effekt:
Offentlig erklære funktion 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 Sub 'ingen fil til afspilning Hvis vent derefter' afspil lyd, før du kører mere kode sndPlaySound WavFileName, 0 Else 'afspil lyd, mens koden kører sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)' løsning til afspilning af lydnoter i Excel 97 eller nyere Dim SoundFileName As String SoundFileName = "" Ved fejl Genoptag næste 'opstår der en fejl, hvis cellen ikke har en note SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Then Exit Sub 'no cell note If InStr (1, SoundFileName, Chr (10))> 0 Så' indeholder noten et linjeskift 'brug den første linje som filnavnet SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Sådan opretter du en lydnote:
Indsæt en cellekommentar ved at højreklikke i en celle, og vælg Indsæt kommentar….
Udfyld det fulde filnavn og stien til den lydfil, der skal afspilles i den første sætning i cellekommentaren,
f.eks. C: \ Mappenavn \ Soundfilename.wav.
Hvis du vil tilføje en skriftlig meddelelse ud over lydfilnavnet, skal du trykke på ENTER-tasten efter filnavnet
at oprette en ny sætning i kommentaren. Tilføj den ønskede tekst til den nye sætning.
Makroen PlaySoundNotesInExcel97 kan aktiveres af eventmacro Worksheet_SelectionChange (),
dette får lydnoten til at spille hver gang brugeren aktiverer cellen med lydnoten.
