Sound abspielen

Bild

Betrifft: Sound abspielen
von: Peter (hpo)
Geschrieben am: 28.11.2015 19:04:00

Hallo Zusammen
Folgendes Problem möchte ich mit VBA lösen.
Über Application.OnTime wird ein Sound gestartet.
Mein Problem ist wenn ich beim start des Sound z.B. im wOrd arbeite, das der Sound nicht abgespielt wird.Wie sieht der Code aus, das der Sound abgespielt wird obwohl ich nicht.in.Excel bin????
Für Eure hilfe bin ich sehr Dankbar.
Viele Güße
Peter (hpo)

Bild

Betrifft: AW: Sound abspielen
von: Mullit
Geschrieben am: 28.11.2015 19:43:28
Hallo,
OnTime gibt's auch in Word-VBA:
http://msdn.microsoft.com/de-de/library/office/ff820816.aspx
Gruß, Mullit

Bild

Betrifft: AW: Sound abspielen
von: Nepumuk
Geschrieben am: 28.11.2015 21:01:55
Hallo,
welchen Code benutzt du zum abspielen?
Gruß
Nepumuk

Bild

Betrifft: AW: Sound abspielen
von: Peter (hpo)
Geschrieben am: 30.11.2015 11:29:37
Hallo Mullit, hallo Nepumuk
Danke erstmals für Eure Rückmeldung und sorry das ich mich erst jetzt melde.
Mit folgenden Code wird der Sound abgespielt.
#If Win64 Then
Declare PtrSafe Sub sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) ' As Long
#Else
Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
#End If
Solange Excel das axctive Fenster/Program ist, funktioniert dies auch einwandfrei.
Aber sobalt ich in einem anderen Fenster/Program (z.B. Word oder ein xbelibiges anders Program) arbeite und durch die Application.OnTime nun der Sound abgespielt werden soll, wird der Sound eben nicht abgespielt. Auf der Taskleist blinkt die Excelanwendung.
Gibt es hier eine Möglichkeit, das der Sound abgespielt wird, egal in welchen Fenster/Program ich gerade bin.
Der Hintergrund ist folgender:
In Excel wird morgens eine ToDo liste gestartet und bei einzelnen Aufgaben eine Erinnerung hinterlegt.
Jetzt kann es natürlich sein, das ich geradem im Moment der Erinnerung eben nicht mit Excel arbeite.
Für Eure Hilfe ein großes DANKE
Viele Grüße
Peter (hpo)

Bild

Betrifft: AW: Sound abspielen
von: Nepumuk
Geschrieben am: 30.11.2015 15:55:29
Hallo,
ich wollte den Code sehen in dem der Sound abgespielt wird, nicht die Importfunktionen.
Gruß
Nepumuk

Bild

Betrifft: AW: Sound abspielen
von: Peter (hpo)
Geschrieben am: 30.11.2015 21:09:57
Hallo Nepumuk
Folgender Code ruft den Sound auf

Sub ErinnerungUF()
'Halali wird gestartet
Dim Pfad As String, strLW As String
Dim Halali As String
strLW = Left(ThisWorkbook.Path, 3)
Pfad = ThisWorkbook.Path
Halali = strLW & "\Grafik\" & "Erinnerung_Ereignisliste.wav"
Call sndPlaySound32(Halali, 0)
End Sub
Ich hoffe Du kannst mir weiterhelfen.
Viele Grüße
Peter (hpo)

Bild

Betrifft: AW: Sound abspielen
von: Nepumuk
Geschrieben am: 01.12.2015 11:13:10
Hallo,
versuch es mal so:

Call sndPlaySound32(Halali, 1)
Gruß
Nepumuk

Bild

Betrifft: AW: Sound abspielen
von: Peter (hpo)
Geschrieben am: 01.12.2015 11:37:17
Hallo Nepumuk
Leider keine Änderung. Sound wird immer noch nicht abgespielt.
Vielen Dank
Gruß
Peter (hpo)

Bild

Betrifft: AW: Sound abspielen
von: Nepumuk
Geschrieben am: 01.12.2015 12:11:20
Hallo,
ich kann das nicht nachvollziehen, bei mir funktionieren beide Varianten.
Ich lass die Frage mal offen.
Gruß
Nepumuk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sound abspielen"