Playing wavfiles from excel

[Brett]

I have

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

and then a series of:
Sub G02_WAV_AIR()
Dim WAVFile1 As String
WAVFile1 = "C:\0. QUO VADIS\SOUNDS\AIR.wav"
Call PlaySound(WAVFile1, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Each one gets it's own WAVfile#. Now this all worked perfectly until a few
weeks ago. Now, it will intermittently play only the first tenth of a second
of WAVs if they are at the start of a subroutine (subsequent statements of
ANY kind seem to terminate it). Other times (in the SAME subroutine, and
without code changes) it will play completely. If the WAV is at the end of a
sub then it always plays fully.

Is there something that needs to be cleared (or whatever) before playing a
WAV? Brett

 

[Jacob Skaria]

Brett, the below link may be helpful

http://www.mrexcel.com/archive/VBA/11357.html

If this post helps click Yes

 

[Brett]

Thank you Jacob. That's different code to what I have so I'll play around
with it later.

 

[Brett]

THIS POST IS NO LONGER REQUIRED.

Thank you Jacob. That's different code to what I have so I'll play around
with it later.