add music?

  • Thread starter Thread starter butters14
  • Start date Start date
B

butters14

is there a way to have a WAV or MP3 file play upon the opening of
workbook? i'd like to spice up these sheets im sending via email. an
ideas
 
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, _
hModule As Long, _
ByVal dwFlags As Long) As Long


Private Sub Workbook_Open()
PlayWavFile "C:\Windows\Media\Microsoft Office 2000\Chimes.wav"
End Sub


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


'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
 
Back
Top