Excel Userform Sound abspielen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare PtrSafe Function PlaySoundA Lib "winmm.dll" ( _ ByVal lpszName As String, ByVal hModule As LongPtr, _ ByVal dwFlags As Long) As Long Const SND_FILENAME = &H20000 Sub PlayMySound() PlaySoundA "D:\IRD\DrumRoll.wav", 0, SND_FILENAME End Sub

UserFormWarnung.Show vbModal While True DoEvents If txt2speak > "" Then Application.Speech.Speak txt2speak Call sndPlaySound32(xSound, 0) If UserFormWarnung.hide then exit sub Wend

Private Declare PtrSafe Function Beep Lib "kernel32" ( _ ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Sub MachLrach() ' Metronom Dim L As Long L = 150 Beep 900, L Beep 580, L Beep 900, L Beep 580, L Beep 900, L Beep 580, L Beep 900, L Beep 580, L End Sub

UserFormWarnung.Show 0 While Range("HlpWarnung").Value = True UserFormWarnung.btnEnde.SetFocus If txt2speak > "" Then Application.Speech.Speak txt2speak Call sndPlaySound32(xSound, 0) Wend

Hallo Bettina,

in das Modul deines Userforms:

Option Explicit

Private Declare PtrSafe Function sndPlaySoundA Lib "winmm.dll" ( _
    ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long

Private Const SND_ASYNC As Long = &H1
Private Const SND_LOOP As Long = &H8
Private Const SND_FILENAME As Long = &H20000

Private Sub UserForm_Activate()
    Call sndPlaySoundA("C:\Windows\Media\Alarm01.wav", SND_ASYNC Or SND_LOOP Or SND_FILENAME)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Call sndPlaySoundA("NULL", SND_ASYNC)
End Sub

Zur Not kann ich auch die Lautstärke deines Rechners hoch stellen.

Gruß
Nepumuk

Option Explicit Private Declare PtrSafe Function sndPlaySoundA Lib "winmm.dll" ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Const SND_ASYNC As Long = &H1 Private Const SND_LOOP As Long = &H8 Private Const SND_FILENAME As Long = &H20000 Private Const SND_NODEFAULT = &H2 Private Sub UserForm_Activate() Call sndPlaySoundA("C:\Windows\Media\Alarm01.wav", SND_ASYNC Or SND_LOOP Or SND_NODEFAULT) End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Call sndPlaySoundA(vbNullString, SND_NODEFAULT) End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Userform Sound abspielen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread