macro to play a.wav file

[still learning]

Hello,
Could I use a macro to open/play a .wav file? I have a bunch of "funny" 2 and 3 sec sayings that I would like to use as an event macro. They are in a folder on my hard drive, but not in any program. The path is :c:\wavefile\gooutside.wav. Another thought, could I have the macro randomly play one from a list?

Maybe, I've too much free time on my hands!

Mike

 

[VoG]

Here's an example http://www.j-walk.com/ss/excel/tips/tip59.htm

 

[still learning]

Hi, Peter

I tried to adapt the code from the link you gave me, but I can't get it to work. The file path is C:\wavefile\gooutside.wav. I've already learned about "event macros" from using this site If it will make it easier I can move the wave file to the excel folder. I'm using Windows XP and Excel 2007. Also is there code to have a random sound from a list maybe in Personal.xls.

Mike

 

[VoG]

This worked for me - all of the code goes into the sheet's code module

Option Explicit

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


Private Sub Worksheet_Change(ByVal Target As Range)
Dim WAVFile As String
If Target.Address(False, False) = "A1" Then
    WAVFile = "C:\Test\doh.wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub

You will need to change the path and filename to that of your WAV file.

 

[still learning]

Hi Peter,

Works like a charm. I had the WaveFile = all messed up. Any way for it to randomly pick from a list?


Mike

 

[VoG]

Not sure about the random bit. Maybe you can adapt something like the code here http://excel.tips.net/Pages/T002811_Selecting_Random_Names.html

 

[still learning]

Thanks Pete,
I'll work on it over the weekend. I think I can make it work by using that macro to copy it to a cell and use an event macro.........
Any way, thanks for your help. Have a good weekend


Mike

 

[still learning]

I made a list of my wave files in sheet1, A:1 to A:30. Using the link that VoG gave me (thanks VoG ) and changing A:A to A1:A30 and ….*1000 to ...*30, I am able to bring up a random .wav in b:1 of the same sheet. Question: How would I use the code that VoG gave me ( thanks again VoG ) to refer to B:1 instead of

WAVFile = "C:\Test\doh.wav"

Mike<?xml:namespace prefix = o /><o></o>

 

[VoG]

Try

WAVFile = Range("B1").Value

 

[still learning]

Hey Pete,
Thanks. I was able to modify the code and formula so that when data is entered in a cell, a random .wav is played. I'm going to have some supprised people soon


Thanks again for all your help. Have a couple on me !

Mike