Help:in editing code

**opd** · 03-12-2013, 01:06 AM

Hi
Is it possible to have picture to replace the sound file in this code below. Any ideas please?

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 & "\left.wav" 'Edit this statement
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Alarm = True
    Else: WAVFile = ThisWorkbook.Path & "\right.wav" 'Edit this statement
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Exit Function
    End If
ErrHandler:
    Alarm = False
End Function

**patel45** · 03-12-2013, 02:27 AM

Function Alarm(cell, Condition)
    If Evaluate(cell.Value & Condition) Then
        msgbox "Bad"
        Alarm = True
    Else
        msgbox "Good"
        Alarm = False
    End If
End Function