Quanto um sistema se torna bastante completo e profissional, merece contar alguns recursos de interface e interação para enriquecer seu valor.
O código abaixo executa um arquivo de áudio no padrão .wav através do VBA.
1 2 3 4 5 6 7 8 9 10 11 12 13 | 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 Sub PlayWAV() WAVFile = "Som.wav" WAVFile = ThisWorkbook.Path & "\" & WAVFile Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) End Sub |
Neste caso, o arquivo tem o nome “Som.wav” localizado na mesma pasta do arquivo .xls.
Fonte: Fórum Julio Battisti
Abraços
Tomás Vásquez
www.tomasvasquez.com.br