Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Music file associated with an Excel file.
Is it possible that when I open up a particular Excel file a particular
wav/midi/mp3 music file will automatically start playing? If so, how do I do it? Thanks - Steve B. |
#2
|
|||
|
|||
Steve,
Put this code in a normal code module Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ hModule As Long, _ ByVal dwFlags As Long) As Long Public Function PlayWavFile(WavFile As String) As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME PlayWavFile = "" End Function and then in ThisWorkbook add this code Private Sub Workbook_Open() PlayWavFile ("C:\Windows\Media\Microsoft Office 2000\Chimes.wav")End Sub -- HTH RP (remove nothere from the email address if mailing direct) "SteBar" wrote in message ... Is it possible that when I open up a particular Excel file a particular wav/midi/mp3 music file will automatically start playing? If so, how do I do it? Thanks - Steve B. |
#3
|
|||
|
|||
Bob,
Playsound won't play mp3 or mid files. All you'll hear is that "donk" (which is ding.wav). -- Earl Kiosterud mvpearl omitthisword at verizon period net ------------------------------------------- "Bob Phillips" wrote in message ... Steve, Put this code in a normal code module Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ hModule As Long, _ ByVal dwFlags As Long) As Long Public Function PlayWavFile(WavFile As String) As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME PlayWavFile = "" End Function and then in ThisWorkbook add this code Private Sub Workbook_Open() PlayWavFile ("C:\Windows\Media\Microsoft Office 2000\Chimes.wav")End Sub -- HTH RP (remove nothere from the email address if mailing direct) "SteBar" wrote in message ... Is it possible that when I open up a particular Excel file a particular wav/midi/mp3 music file will automatically start playing? If so, how do I do it? Thanks - Steve B. |
#4
|
|||
|
|||
Hi Earl,
Yes this only does WAV. You need separate code for MP3 and MIDI., and you halved to stream it through the appropriate device AFAIK, so it is not appropriate for this sort of use. -- HTH RP (remove nothere from the email address if mailing direct) "Earl Kiosterud" wrote in message ... Bob, Playsound won't play mp3 or mid files. All you'll hear is that "donk" (which is ding.wav). -- Earl Kiosterud mvpearl omitthisword at verizon period net ------------------------------------------- "Bob Phillips" wrote in message ... Steve, Put this code in a normal code module Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ hModule As Long, _ ByVal dwFlags As Long) As Long Public Function PlayWavFile(WavFile As String) As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME PlayWavFile = "" End Function and then in ThisWorkbook add this code Private Sub Workbook_Open() PlayWavFile ("C:\Windows\Media\Microsoft Office 2000\Chimes.wav")End Sub -- HTH RP (remove nothere from the email address if mailing direct) "SteBar" wrote in message ... Is it possible that when I open up a particular Excel file a particular wav/midi/mp3 music file will automatically start playing? If so, how do I do it? Thanks - Steve B. |
#5
|
|||
|
|||
So maybe you could use the windows default application that's associated with
that file extension: Option Explicit Private Sub Workbook_Open() Shell "Start ""C:\My Documents\My Music\my song.mp3""" End Sub This starts it, but does give a warning message: Option Explicit Private Sub Workbook_Open() ActiveWorkbook.FollowHyperlink "C:\My Documents\My Music\my song.mp3" End Sub Earl Kiosterud wrote: Bob, Playsound won't play mp3 or mid files. All you'll hear is that "donk" (which is ding.wav). -- Earl Kiosterud mvpearl omitthisword at verizon period net ------------------------------------------- "Bob Phillips" wrote in message ... Steve, Put this code in a normal code module Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ hModule As Long, _ ByVal dwFlags As Long) As Long Public Function PlayWavFile(WavFile As String) As String Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME PlayWavFile = "" End Function and then in ThisWorkbook add this code Private Sub Workbook_Open() PlayWavFile ("C:\Windows\Media\Microsoft Office 2000\Chimes.wav")End Sub -- HTH RP (remove nothere from the email address if mailing direct) "SteBar" wrote in message ... Is it possible that when I open up a particular Excel file a particular wav/midi/mp3 music file will automatically start playing? If so, how do I do it? Thanks - Steve B. -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 FAILS, but Excel 2000 SUCCEEDS ??? | Excel Discussion (Misc queries) | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) | |||
Excel 2000 file when opened in Excel 2003 generates errors? | Excel Discussion (Misc queries) | |||
double click a xls file and start Excel but without the file | Excel Discussion (Misc queries) | |||
Saving a Excel 97 file into Excel 2003 file | Excel Discussion (Misc queries) |