Arquivos de som em formato MIDI são frequentemente longos, então pode ser necessário parar de tocar
o som (por exemplo, quando a macro é concluída). Aqui está um exemplo:
Função Declare Privada mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Then Exit Sub 'nenhum arquivo para jogar If Play Then mciExecute "play" & MidiFileName 'começar a tocar Else mciExecute "parar" & MidiFileName' parar de tocar End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Clique em OK quando o arquivo MIDI começar a tocar … "MsgBox" Clique em OK para parar de reproduzir o arquivo MIDI… "PlayMidiFile" c: \ nome da pasta \ nome do arquivo de som.mid ", False End Sub