Home |
Search |
Today's Posts |
#1
|
|||
|
|||
beep suddenly won't work
Hi all,
Suddenly my Excel (2K) beep won't work anymore, neither in excisting code nor in new code. For instance the code below does nothing. Sub Macro6() Beep Beep Beep End Sub All other Windows (XP SP) sounds still work, but I'm not sure of Word because as far as I can remember I don't do things in Word that generate sound. I tried the macro below and there was no sound. Sub test_sound() Beep End Sub Where should I look for what is wrong? Your help will be appreciated. Jack Sons The Netherlands |
#2
|
|||
|
|||
Is your speaker card turned on? Or you could use this for your internal
speaker. A search on this http://makeashorterlink.com/?D24E42426 showed among lots of things this: " In VB, the Beep function calls the Windows Exclamation sound, so if you have a sound card driver installed, the sound will be emitted by the sound card. " If your app is being run under WinNT4, Win2000, or WinXP, you can use the Beep API function to play a sound using the internal speaker. Win9x does not support this (like VB's Beep statement, the Beep API function under Win9x only plays the Default Sound .wav file). Private Declare Function Beep Lib _ "kernel32" (ByVal dwFreq As Long, _ ByVal dwDuration As Long) As Long Sub BeepMe() Dim frequency As Long Dim duration As Long frequency = 1600 duration = 500 Call Beep(frequency, duration) End Sub -- HTH. Best wishes Harald -- Don Guillett SalesAid Software "Jack Sons" wrote in message ... Hi all, Suddenly my Excel (2K) beep won't work anymore, neither in excisting code nor in new code. For instance the code below does nothing. Sub Macro6() Beep Beep Beep End Sub All other Windows (XP SP) sounds still work, but I'm not sure of Word because as far as I can remember I don't do things in Word that generate sound. I tried the macro below and there was no sound. Sub test_sound() Beep End Sub Where should I look for what is wrong? Your help will be appreciated. Jack Sons The Netherlands |
#3
|
|||
|
|||
Don,
The internal sound is barely audible and not a good substitute for the standard beep. In Control Panel -- Sounds -- Windows -- Exclamation mark I sea the speaker symbol in front of it. In the drop down box below "Sounds:" I see "Windows XP Explanation.wav and when I click the horizontal arrow at the right hand side I hear the proper sound coming out of my speakers. So my speaker card is turned on and in principle the exitation of the Windows Explanation sound works. Other souds also work well, like for incoming mail, starting Windows etc. I tried (from the Excel help function): Sub beepsound() Dim I For I = 1 To 3 Beep Next I End Sub but I get an errormessage saying (translated from Dutch) "Compiling error. The argument is not optional". I have absolutely no inea what this means. You wrote: "In VB, the Beep function calls the Windows Exclamation sound". Where is the connection, could that be disrupted somewhere? Can you help? Jack. "Don Guillett" schreef in bericht ... Is your speaker card turned on? Or you could use this for your internal speaker. A search on this http://makeashorterlink.com/?D24E42426 showed among lots of things this: " In VB, the Beep function calls the Windows Exclamation sound, so if you have a sound card driver installed, the sound will be emitted by the sound card. " If your app is being run under WinNT4, Win2000, or WinXP, you can use the Beep API function to play a sound using the internal speaker. Win9x does not support this (like VB's Beep statement, the Beep API function under Win9x only plays the Default Sound .wav file). Private Declare Function Beep Lib _ "kernel32" (ByVal dwFreq As Long, _ ByVal dwDuration As Long) As Long Sub BeepMe() Dim frequency As Long Dim duration As Long frequency = 1600 duration = 500 Call Beep(frequency, duration) End Sub -- HTH. Best wishes Harald -- Don Guillett SalesAid Software "Jack Sons" wrote in message ... Hi all, Suddenly my Excel (2K) beep won't work anymore, neither in excisting code nor in new code. For instance the code below does nothing. Sub Macro6() Beep Beep Beep End Sub All other Windows (XP SP) sounds still work, but I'm not sure of Word because as far as I can remember I don't do things in Word that generate sound. I tried the macro below and there was no sound. Sub test_sound() Beep End Sub Where should I look for what is wrong? Your help will be appreciated. Jack Sons The Netherlands |
#4
|
|||
|
|||
Don,
BTW, what is an API function? Jack. "Don Guillett" schreef in bericht ... Is your speaker card turned on? Or you could use this for your internal speaker. A search on this http://makeashorterlink.com/?D24E42426 showed among lots of things this: " In VB, the Beep function calls the Windows Exclamation sound, so if you have a sound card driver installed, the sound will be emitted by the sound card. " If your app is being run under WinNT4, Win2000, or WinXP, you can use the Beep API function to play a sound using the internal speaker. Win9x does not support this (like VB's Beep statement, the Beep API function under Win9x only plays the Default Sound .wav file). Private Declare Function Beep Lib _ "kernel32" (ByVal dwFreq As Long, _ ByVal dwDuration As Long) As Long Sub BeepMe() Dim frequency As Long Dim duration As Long frequency = 1600 duration = 500 Call Beep(frequency, duration) End Sub -- HTH. Best wishes Harald -- Don Guillett SalesAid Software "Jack Sons" wrote in message ... Hi all, Suddenly my Excel (2K) beep won't work anymore, neither in excisting code nor in new code. For instance the code below does nothing. Sub Macro6() Beep Beep Beep End Sub All other Windows (XP SP) sounds still work, but I'm not sure of Word because as far as I can remember I don't do things in Word that generate sound. I tried the macro below and there was no sound. Sub test_sound() Beep End Sub Where should I look for what is wrong? Your help will be appreciated. Jack Sons The Netherlands |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Work book shared | Excel Discussion (Misc queries) | |||
Work book formulas | Excel Discussion (Misc queries) | |||
I wish to save my Excell work in my work sheets | Excel Worksheet Functions | |||
How to copy the work sheets from different workbooks into one? | Excel Discussion (Misc queries) | |||
Change Path names in copied work book | Excel Worksheet Functions |