Abspielen von Klangdateien mit Hilfe von Makros

Nicht nur Windows und Word 97 begleiten Ihre Aktionen mit allerlei Klängen, auchMakros können sich mit dem Abspielen von WAV-Dateien effektvoll in Szene setzen. Allerdings muß man sich hierzu der Win-Api-Funktion »PlaySound« bedienen. Mit dieser Funktion kann man zum Beispiel einen Wecker programmieren, der als Wecksignal eine Klangdatei abspielt. Starten Sie den Visual-Basic- Editor mit [Alt] [F11] und öffnen Sie mit der [F7]-Taste das Code-Fenster. Mit Hilfe der rechten oberen Drop-down-Liste des Code-Fensters begeben Sie sich in den »(Deklarationen)«- Abschnitt. In diesem Bereich geben Sie die unten angeführten Befehle ein. Abschließend speichern Sie mit [Strg] [S] und beenden den Editor. Den Wecker stellen Sie mit dem Aufruf des Makros »Wecker«; in das Makro-Menü gelangen Sie mit [Alt] [F8]. Geben Sie dann die Weckzeit ein und klicken Sie zur Bestätigung auf »OK«. Zu der angegebenen Zeit wird dann die Unterroutine »Sub Signal« mit dem Klang »erinner.wav« ausgeführt und eine Meldung gezeigt. Eventuell müssen Sie die dritte Zeilevon »Sub Signal()«, die mit »R= PlaySound ...« beginnt, der Verzeichnisstruktur Ihres PC anpassen. Außerdem können Sie auch eine andere Klangdatei als Wecksignal verwenden.
Bernd Schieferdecker

Visual-Basic-Code für einen Wecker unter Word 97:

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub Wecker()

Meldung = "Geben Sie eine Weckzeit ein:"

Zeit = InputBox(Meldung, "Wecker", Time)

If Zeit <> "" Then

Application.OnTime When:=Zeit, Name:= "Signal"

End If

End Sub

Sub Signal()

Dim hModule As Long, dwFlags As Long, R As Long

R = PlaySound("c:\windows\media\office97\erinner.wav", hModule, dwFlags)

MsgBox "Es ist jetzt " & Time & " Uhr!", vbOKOnly, "Wecker"

End Sub