In Excel 5 und 95 ist es möglich, mithilfe einer Sounddatei Notizen an eine Zelle anzuhängen.
Diese Soundnote kann abgespielt werden, indem der Dialog zum Bearbeiten von Zellnotizen geöffnet wird.
Das Makro unten kann auch die an eine Zelle angehängte Soundnote für Sie abspielen:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' nur für Excel 5 und 95 Wenn nicht Application.CanPlaySounds Then Exit Sub On Error Resume Next ' falls kein Soundnote-Bereich (CellAddress) vorhanden ist.SoundNote.Play On Error GoTo 0 End Sub
Excel 97 oder höher unterstützt die Verwendung von Soundnotes nicht mehr.
Mit den folgenden Makros ist es möglich, einen Workaround zu erstellen, um den gleichen Effekt zu erzielen:
Public Declare Function 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 ' keine Datei zum Abspielen If Wait Then ' Sound abspielen, bevor weiterer Code ausgeführt wird sndPlaySound WavFileName, 0 Else ' Sound abspielen, während der Code ausgeführt wird sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97(CellAddress As String) ' Problemumgehung zum Abspielen von Soundnotizen in Excel 97 oder höher Dim SoundFileName As String SoundFileName = "" On Error Resume Next ' ein Fehler tritt auf, wenn die Zelle keinen Hinweis hat SoundFileName = Range(CellAddress).Comment.Text On Error GoTo 0 If SoundFileName = "" Then Exit Sub ' keine Zellnotiz If InStr(1, SoundFileName, Chr(10)) > 0 Then ' die Notiz enthält einen Zeilenumbruch ' verwende die erste Zeile als Dateinamen SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
So erstellen Sie eine Soundnote:
Fügen Sie einen Zellenkommentar ein, indem Sie mit der rechten Maustaste in eine Zelle klicken und Kommentar einfügen… auswählen.
Geben Sie im ersten Satz des Zellenkommentars den vollständigen Dateinamen und den Pfad zur abzuspielenden Sounddatei ein.
z.B. C:\Ordnername\Sounddateiname.wav.
Wenn Sie zusätzlich zum Sounddateinamen eine schriftliche Nachricht hinzufügen möchten, drücken Sie die ENTER-Taste nach dem Dateinamen
um einen neuen Satz im Kommentar zu erstellen. Fügen Sie dem neuen Satz den gewünschten Text hinzu.
Das Makro PlaySoundNotesInExcel97 kann durch das Eventmacro Worksheet_SelectionChange() aktiviert werden,
Dadurch wird die Soundnote jedes Mal abgespielt, wenn der Benutzer die Zelle mit der Soundnote aktiviert.
