Los archivos de sonido en formato MIDI suelen ser largos, por lo que puede ser necesario detener la reproducción
el sonido (por ejemplo, cuando finaliza la macro). Aquí hay un ejemplo:
Función de declaración privada mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand como cadena) As Long Sub PlayMidiFile (MidiFileName como cadena, reproducir como booleano) If Dir (MidiFileName) = "" Then Exit Sub 'no hay archivo para reproducir If Play Then mciExecute "reproducir" & MidiFileName 'comenzar a reproducir Else mciExecute "detener" & MidiFileName' detener la reproducción End If End Sub Sub TestPlayMidiFile () PlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Haga clic en Aceptar cuando el archivo MIDI comience a reproducirse … "MsgBox" Haga clic en Aceptar para detener la reproducción del archivo MIDI … "PlayMidiFile" c: \ foldername \ soundfilename.mid ", False End Sub