Es ist einfach, Sounddateien im WAV-Format abzuspielen. Sie müssen nur den Dateinamen des Sounds kennen, den Sie abspielen möchten,
und entscheiden Sie, ob das Makro warten soll, während der Ton abgespielt wird oder nicht. Hier ist ein Beispiel:
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 TestPlayWavFile() PlayWavFile "c:\Ordnername\Sounddateiname. wav", False MsgBox "Dies ist sichtbar, während der Sound abgespielt wird… " PlayWavFile "c:\Ordnername\Sounddateiname.wav", True MsgBox "Dies ist sichtbar, nachdem der Sound abgespielt wurde… " End Sub