VBA Excel - Generating Sounds

[ajliaks]

Hi all,

Could anybody tell me how to generate a sound?

I need to play a sound every time I finish running a macro.

Thanks in advance,
Aldo

 

[Frank Kabel]

Hi
see:
http://j-walk.com/ss/excel/tips/tip59.htm

 

[ste mac]

Hi ajliaks, I use this code, just put the sound file in the same folder/
directory and call it by the macro and it should work...


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

Sub playmywavfile()
WAVFile = "thewavyouwanttoplay.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

hope this helps...

seeya ste