smartsuitefaq.martinholz.de

Wav-Dateien abspielen

Es gibt meines Wissen keine reine Makrolösung. Ich habe nur ein Script
von www.xpertss.com: (Ich habe es ein wenig geändert bzw. angepasst.)


Found this one that Yoichi contributed:

'In Global Declaration Section
Declare Public Function PlayA Lib "Winmm.dll" Alias 

"sndPlaySoundA"(Byval LPCSTR As String , Byval UINT As Integer) As Integer


In Global script area:
Sub PlaySound
    Dim strSoundFile As String 
    Dim intMethod As Integer 
    Dim intRet As Integer

strSoundFile="C:\WINDOWS\Media\Chimes.wav" intMethod%=0 intRet=PlayA(strSoundFile, intMethod ) End Sub

In diesem Beispiel (Sound.zip 58,1 kB) habe ich die Sub PlaySound umbenannt, z.B. in Sub Chimes.
Mit dem Makrobefehl "Ausführen->Option Makro ausführen: Sub Chimes"
kann man diese wav-Datei abspielen.
Über diesen ArtikelArtikelbewertung
Stand: 10.10.2004
Autor(en): Cornelius Kömpel
Durchschnittsnote: 1.5
1 2 3 4 5 6