View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
yo beee yo beee is offline
external usenet poster
 
Posts: 15
Default Macro to Play Wave File

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