Simple Sound Macro
 

I am hoping someone can help, this shoudn't be a difficult problem...

I currently have a macro that looks like this:

Sub Error_1()
Application.ScreenUpdating = False
Range("F6").Select
Selection.Font.ColorIndex = 36
Range("A1").Select
Application.ScreenUpdating = True
End Sub

All it is doing it unhiding a character in the relevant cell, what i am
looking for is some code that will add a noise to this action. the
noise will be in .WMV format so i believe will be easy to add.

Any ideas?


--
chalky
------------------------------------------------------------------------
chalky's Profile: http://www.excelforum.com/member.php...o&userid=23758
View this thread: http://www.excelforum.com/showthread...hreadid=501011

Simple Sound Macro
 

Try:

Range("A1").Speak

--
Gary''s Student


"chalky" wrote:


I am hoping someone can help, this shoudn't be a difficult problem...

I currently have a macro that looks like this:

Sub Error_1()
Application.ScreenUpdating = False
Range("F6").Select
Selection.Font.ColorIndex = 36
Range("A1").Select
Application.ScreenUpdating = True
End Sub

All it is doing it unhiding a character in the relevant cell, what i am
looking for is some code that will add a noise to this action. the
noise will be in .WMV format so i believe will be easy to add.

Any ideas?


--
chalky
------------------------------------------------------------------------
chalky's Profile: http://www.excelforum.com/member.php...o&userid=23758
View this thread: http://www.excelforum.com/showthread...hreadid=501011

Simple Sound Macro
 

Thanks for this. The sound i had planned would actually be stored on
the hard drive, i need the programming to actually play this sound file
as the Macro runs


--
chalky
------------------------------------------------------------------------
chalky's Profile: http://www.excelforum.com/member.php...o&userid=23758
View this thread: http://www.excelforum.com/showthread...hreadid=501011

Simple Sound Macro
 

from:
http://www.exceltip.com/st/Playing_W...osoft_Excel/46
0.html
It's easy to play soundfiles in WAV-format. You only need to know the
filename of the sound you want to play, and decide if you want the macro to
wait while the sound plays or not.

Here is an example:
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)
If Dir(WavFileName) = "" Then Exit Sub ' no file to play
If Wait Then ' play sound before running any more code
sndPlaySound WavFileName, 0
Else ' play sound while code is running
sndPlaySound WavFileName, 1
End If
End Sub

Sub TestPlayWavFile()
PlayWavFile "c:\foldername\soundfilename.wav", False
MsgBox "This is visible while the sound is playing..."
PlayWavFile "c:\foldername\soundfilename.wav", True
MsgBox "This is visible after the sound is finished playing..."
End Sub




"chalky" wrote in
message ...

Thanks for this. The sound i had planned would actually be stored on
the hard drive, i need the programming to actually play this sound file
as the Macro runs


--
chalky
------------------------------------------------------------------------
chalky's Profile:
http://www.excelforum.com/member.php...o&userid=23758
View this thread: http://www.excelforum.com/showthread...hreadid=501011

Simple Sound Macro
 

Ah that looks like it should nail it.

Thanks!


--
chalky
------------------------------------------------------------------------
chalky's Profile: http://www.excelforum.com/member.php...o&userid=23758
View this thread: http://www.excelforum.com/showthread...hreadid=501011