VBA: Soundausgabe, Systemroutine Beep(Dauer, Freguenz)

Hallo,

die VBA-Anweisung Aufruf der Systemroutine Beep funktioniert nicht mehr. D.h., sie funktioniert auf WindowsXP unter Excel2010, aber nicht mehr unter Windows7.

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub Tonerzeug()
    Dim L As Long
    L = Beep(440, 1000)
End Sub

Die Routine wird durchlaufen ohne Fehlermeldung. An der "Sanduhr" sieht man auch, dass Beep für 440 ms abgearbeitet wird. Aus den (funktionsfähigen) Lautsprechern ist aber nichts zu hören.

Gruss Reinhard

 

Informationen zur Frage


Letzte Aktualisierung am 28 November, 2018 Aufrufe 2.238 Gilt für:
Antwort
Hallo ihr beiden, freut mich ja für euch. Ich habe mal in der Einstellung vom Realtek HD Audio-Manager nachgeguckt und bei der Lautsprecherkonfiguration zwei Optionen entdeckt: a) Stereo b) 5.1 Lautsprecher Wenn ich a) wähle, dann funktioniert Beep wie gewünscht. Bei b)nicht. Gruss Reinhard

Wurde Ihr Problem dadurch behoben?

Das war leider nicht hilfreich.

Toll! Danke, dass Sie dies als Antwort markiert haben.

Wie zufrieden sind Sie mit dieser Antwort?

Vielen Dank für Ihr Feedback, es hilft uns dabei, die Website zu verbessern.

Wie zufrieden sind Sie mit dieser Antwort?

Vielen Dank für Ihr Feedback.