Reprodukcija WAV datoteka pomoću VBA u programu Microsoft Excel

Anonim

Lako je reproducirati zvučne datoteke u WAV-formatu. Potrebno je samo znati naziv datoteke zvuka koji želite reproducirati,
i odlučite želite li da makro pričeka dok se zvuk reproducira ili ne. Evo primjera:

Javno proglasi funkciju sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileNa then Ex) Pod "nema datoteke za reprodukciju Ako čekate onda" reproducirajte zvuk prije izvođenja bilo kojeg koda sndPlaySound WavFileName, 0 Inače "reproducirajte zvuk dok je kôd pokrenut sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile" c: \ foldername \ soundfilename. wav ", False MsgBox" Ovo je vidljivo dok se zvuk reproducira … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Ovo je vidljivo nakon što se zvuk završi … "End Sub