Tocando som WAV no VBA

julho 7th, 2008 by Tomás Vásquez

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.

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

Tomás Vásquez - Blog