Riproduzione di file MIDI utilizzando VBA in Microsoft Excel

I file audio in formato MIDI sono spesso lunghi, quindi potrebbe essere necessario interrompere la riproduzione
il suono (ad es. quando la macro è terminata). Ecco un esempio:

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 ' nessun file da riprodurre If Play Then mciExecute "play " & MidiFileName ' avvia la riproduzione Else mciExecute "stop " & MidiFileName ' interrompi la riproduzione End If End Sub TestPlayMidiFile() PlayMidiFile "c:\foldername\soundfilename.mid", True MsgBox "Fai clic su OK quando inizia la riproduzione del file MIDI… " MsgBox "Fare clic su OK per interrompere la riproduzione del file MIDI… " PlayMidiFile "c:\foldername\soundfilename.mid", False End Sub