Wiedergabe von Ton Notizen mit VBA in Microsoft Excel
In Excel 5 und 95 ist es möglich, mithilfe einer Audiodatei Notizen an eine Zelle anzuhängen. Diese Soundnote kann wiedergegeben werden, indem der Dialog zum Bearbeiten von Zellennoten geöffnet wird.
Das folgende Makro kann auch die an eine Zelle angehängte Soundnote für Sie abspielen:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' for Excel 5 and 95 only If Not Application.CanPlaySounds Then Exit Sub On Error Resume Next ' in case there is no soundnote Range(CellAddress).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, eine Problemumgehung 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 ' no file to play If Wait Then ' play sound before running any more code sndPlaySound WavFileName, 0 Else ' play sound while code is running sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97(CellAddress As String) ' workaround for playing sound notes in Excel 97 or later Dim SoundFileName As String SoundFileName = "" On Error Resume Next ' an error occurs if the cell doesn't have a 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 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
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 den vollständigen Dateinamen und den Pfad zu der Sounddatei ein, die im ersten Satz des Zellenkommentars abgespielt werden soll, z. C: \ Ordnername \ Soundfilename.wav.
Wenn Sie zusätzlich zum Dateinamen eine schriftliche Nachricht hinzufügen möchten, drücken Sie die EINGABETASTE nach dem Dateinamen, um einen neuen Satz im Kommentar zu erstellen. Fügen Sie den gewünschten Text zum neuen Satz 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.