is it possible to play a sounds from cell value in excel??

also can you stop a sound from playing with a cell value
"sl" wrote in message
...
is it possible to play a sounds from cell value in excel??

Not sure how you play or stop a sound with a cell value ... you need some
event to occur to trigger a macro.

--

Vasant

"sl" wrote in message
...
also can you stop a sound from playing with a cell value
"sl" wrote in message
...
is it possible to play a sounds from cell value in excel??

Hi SL,
This is the code I use to play a sound file in excel, as long as the
soundfile is in the same workbook folder it will play it, just change
'yourwavfile' to whatever sound file you want to play...

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 RunSLmacro()
WAVFile = "yourwavfile.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

As for playing it when a cell value changes you could do something like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then ' change you cell here

RunSLmacro

End If

End Sub

hope this helps...

seeya ste

that was a great help

thanks very much..


"ste mac" wrote in message
om...
Hi SL,
This is the code I use to play a sound file in excel, as long as the
soundfile is in the same workbook folder it will play it, just change
'yourwavfile' to whatever sound file you want to play...

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 RunSLmacro()
WAVFile = "yourwavfile.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

As for playing it when a cell value changes you could do something like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then ' change you cell here

RunSLmacro

End If

End Sub

hope this helps...

seeya ste