WAV-failide esitamine Microsoft Excelis VBA abil

Anonim

Helifailide esitamine WAV-vormingus on lihtne. Peate teadma ainult esitatava heli failinime,
ja otsustage, kas soovite, et makro ootaks heli esitamise ajal või mitte. Siin on näide:

Avalik deklareerimisfunktsioon sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = " Alam „faili ei esitata, kui ootate”, esitab heli enne koodi käivitamist sndPlaySound WavFileName, 0 Muu ”esitab heli koodi töötamise ajal wav ", False MsgBox" See on nähtav heli esitamise ajal … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" See on nähtav pärast heli esitamise lõpetamist … "End Sub