Macro to Play Wave File
Tom,
Thanks! It worked perfectly. Any ideas on how to stop all wav files with
a command button?
Thanks again. Your a lifesaver!
yobeee
"Tom Ogilvy" wrote in message
...
Try this:
Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Sub PlayMe1()
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Dim retval As Long
retval = PlaySound("C:\My folder\my subfolder\wav1.wav", _
0, SND_ASYNC Or SND_FILENAME)
End Sub
--
Regards,
Tom Ogilvy
yo beee wrote in message
...
I have a macro to play a wave file. It works great (See code below)
but,
the macro won't play my wave file all the way through to the end. It
plays
about 5 - 10 seconds of the file and that is about it.
Does anyone have any idea on how to make the macro play the entire
file
all the way through?
TIA
Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Sub PlayMe1()
Dim retval As Long
retval = PlaySound("C:\My folder\my subfolder\wav1.wav", 0, &H20000)
End Sub
|