{quote}{login=Aroma}{date=03.07.2011 10:23}{thema=Музыка при открытии файла}{post}Здравствуйте!  
 
Подскажите, пожалуйста, как можно сделать воспроизведение музыки при открытии файла, может ссылку какую подскажите, ну или код. Спасибо!{/post}{/quote}точно не помню, кажется shell("полный путь к муз файлу")

В модуль книги:  
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long  
 
 
Private Sub Workbook_Open()  
Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
End Sub  
Только баловство это. И совсем не нужно.

{quote}{login=KukLP}{date=03.07.2011 10:41}{thema=}{post}Только баловство это. И совсем не нужно.{/post}{/quote}а вот это абсолютно верно : )

{quote}{login=KukLP}{date=03.07.2011 10:41}{thema=}{post}В модуль книги:  
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long  
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long  
 
 
Private Sub Workbook_Open()  
Call sndPlaySound("C:\Windows\Media\tada.wav", 1)  
End Sub  
Только баловство это. И совсем не нужно.{/post}{/quote}  
И еще подскажите, пожалуйста, если не трудно, проигрываться может музыка любого формата, если в код соответственное расширение файла поставить, или же только файлы .wav?