View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
EMoe[_39_] EMoe[_39_] is offline
external usenet poster
 
Posts: 1
Default Problem with playing sound code


Hello,

I have this code from j-walk.com website (The Alarm Function).

Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this
statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function

I found a wav clip on my computer c:\windows\media\ringin.wav

I don't know how to place this path in the code, nor reference a cell
to evaluate.

Need some help on this one,
Thanks, EMoe


--
EMoe
------------------------------------------------------------------------
EMoe's Profile: http://www.excelforum.com/member.php...o&userid=23183
View this thread: http://www.excelforum.com/showthread...hreadid=384447