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

Brett, the below link may be helpful

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

If this post helps click Yes
---------------
Jacob Skaria


"Brett" wrote:

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

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

"Jacob Skaria" wrote:

Brett, the below link may be helpful

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

If this post helps click Yes
---------------
Jacob Skaria


"Brett" wrote:

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

THIS POST IS NO LONGER REQUIRED.

"Brett" wrote:

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

"Jacob Skaria" wrote:

Brett, the below link may be helpful

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

If this post helps click Yes
---------------
Jacob Skaria


"Brett" wrote:

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