Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Play Wave File
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Play Wave File
Untested, but you can 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 StopMe1() Const SND_PURGE = &H40 Dim retval As Long retval = PlaySound(vbNullString, _ 0, SND_PURGE = &H40) End Sub You don't need to repeat the declaration if it is already in the module. -- Regards, Tom Ogilvy yo beee wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I play a .WAV file in Excel if a condition is met? | Excel Worksheet Functions | |||
How can i play a wave file in excel? | Excel Discussion (Misc queries) | |||
How do I enter a wave sound file into an excel cell? | Excel Discussion (Misc queries) | |||
Macro to play wave file | Excel Programming | |||
Button for wave file | Excel Programming |