VBA to trigger a sound effect
Am looking for a simple way to make Excel play a midi or wav file, so that
spreadsheet can make reasuring sounds, or helpful comments at appropriate stages. Has anyone tried this? |
VBA to trigger a sound effect
You can get some information at John Walkenbach's site:
http://j-walk.com/ss/excel/tips/tip87.htm Playing a Sound Based on a Cell's Value http://j-walk.com/ss/excel/tips/tip59.htm Playing Sound From Excel If you need information on events in excel, see Chip Pearson's page on this http://www.cpearson.com/excel/events.htm -- Regards, Tom Ogilvy "Hotbird" wrote in message ... Am looking for a simple way to make Excel play a midi or wav file, so that spreadsheet can make reasuring sounds, or helpful comments at appropriate stages. Has anyone tried this? |
VBA to trigger a sound effect
Many thanks Tom. Once again you come to my rescue. This is where your
suggestion led: Option Explicit 'Windows API function declaration Dim WAVFile As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long Function Alarm1(Cell, Condition) On Error GoTo ErrHandler If Evaluate(Cell.Value & Condition) Then WAVFile = ThisWorkbook.Path & "\sound1.wav" 'Edit this statement Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Alarm1 = True Exit Function End If ErrHandler: Alarm1 = False End Function Function Alarm2(Cell, Condition) On Error GoTo ErrHandler If Evaluate(Cell.Value & Condition) Then WAVFile = ThisWorkbook.Path & "\sound2.wav" 'Edit this statement Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) Alarm2 = True Exit Function End If ErrHandler: Alarm2 = False End Function Regards, Tom Ogilvy "Hotbird" wrote in message ... Am looking for a simple way to make Excel play a midi or wav file, so that spreadsheet can make reasuring sounds, or helpful comments at appropriate stages. Has anyone tried this? |
All times are GMT +1. The time now is 10:09 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com