Soundfiles im MIDI-Format sind oft lang, daher kann es notwendig sein, die Wiedergabe zu unterbrechen
den Ton (z.B. wenn das Makro fertig ist). Hier ist ein Beispiel:
Private Declare Function mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile(MidiFileName As String, Play As Boolean) If Dir(MidiFileName) = "" Then Exit Sub ' keine Datei zum Abspielen If Play Then mciExecute "play " & MidiFileName ' starte die Wiedergabe Else mciExecute "stop " & MidiFileName ' stoppe die Wiedergabe End If End Sub Sub TestPlayMidiFile() PlayMidiFile "c:\foldername\soundfilename.mid", True MsgBox "Klicke auf OK, wenn die MIDI-Datei abgespielt wird… " MsgBox "Klicken Sie auf OK, um die Wiedergabe der MIDI-Datei zu stoppen… " PlayMidiFile "c:\Ordnername\Soundfilename.mid", False End Sub