play a sound file in the background

[TinaP]

Is there a way to play a wma file via VBA in the background without having Windows Media Player take over? I'm trying to run a macro which starts a song and then macro proceeds to finish its job. Previously, I used the following code (from J-Walk's site), but it doesn't work in Excel 2007:

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
    WAVFile = "dogbark.wav"
    WAVFile = ThisWorkbook.Path & "\" & WAVFile
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

I'd rather not have Windows Media Player open up, if I can help it.

 

[VoG]

Hi Tina. That sort of code works for me without opening WMP. I think that you need to look at the settings in WMP or possibly associate a different program for sounds.

 

[TinaP]

Does the code work with a wma file? I read somewhere online that it didn't work with 2007. I wish I could remember where, but I've looked so many different places today it would be impossible to retrace my steps.

 

[VoG]

Works for me with Excel 2010, Windows 7.

 

[TinaP]

OK, I'll look into the settings. Thanks for your help.