Unica cosa nessun messaggio, mi va in Play all'apertura della cartella di excel e poi appena chiudo l'audio va in stop
Nel Modulo1 ho messo questo:
- Codice: Seleziona tutto
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Dim SoundName As String
Dim wFlags As Double
Dim X
Sub WAVPlay(File)
Dim SoundName As String
SoundName = File
wFlags = SND_ASYNC Or SND_NODEFAULT
X = sndPlaySound(SoundName, wFlags)
End Sub
In ThisWorkBook questo :
- Codice: Seleziona tutto
Private Sub Workbook_Open()
WAVPlay "C:\Desktop\Tensione_Evolutiva.wav"
End Sub