Sound-Datei je nach Vorgabe abspielen

Public Sub Play_Sound() Static blnPlay As Boolean If Not blnPlay Then sndPlaySound "C:\Sounds\Lied_1.wav", SND_ASYNC Or SND_NODEFAULT Else sndPlaySound "NULL", SND_ASYNC End If blnPlay = Not blnPlay End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Forumsbesucher,
da ich gerade solch kompetente Hilfe erhalten habe, hätte ich noch einen Wunsch:
Ebenfalls soll eine Sounddatei abgespielt und ggf. gestoppt werden können.
Ich würde gerne die Sache noch etwas variabler gestalten.
In der Tabelle "Daten" möchte ich in einem bestimmten Bereich, z.B. in A1:C10 folgende Eintragungen vornehmen.
in der Spalte A jeweils eine Zahl, beginnend mit 1 in A1 bis 10 in C10, in der Spalte B jeweils Eintragung des Pfades, in dem die Wav-Datei gespeichert ist und in Spalte C der jeweilige Name der Wav-Datei.
In Tabelle "Daten" Zelle D1 sollte dann jeweils eine Zahl zwischen 1 und 10 eingetragen werden, und je nach Eintrag sollte dann die jeweilige Datei abgespielt werden, also bei dem Eintrag 1, die Datei entsprechend dem Pfad aus B1 und der Bezeichnung in C1.
Wäre toll, wenn ich auch in dieser Angelegenheit auf eure Unterstützung bauen könnte.
Gruß
Fritz

Hallo Fritz,
ich habe es jetzt nur umgestellt für einen Sound.


Option Explicit
'   API Funktion für Sound abspielen
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
'   Variable ob Ton schon gespielt auf 2 definiert da Array mit 0 beginnt und 3 Zellen ü _
berwacht werden sollen
Public DoTon(2) As Integer
'* H. Ziplies                                     *
'* 11.11.06; 12.01.06                             *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
Sub Sound_abspielen()
With ThisWorkbook.Worksheets("Tabelle1")
If .Range("A7") = 7 Then
If DoTon(0) = 0 Then
Call sndPlaySound32(.Range("F6") & .Range("G6"), 1)
DoTon(0) = 1    ' Sound wurde abgespielt
End If
Else
DoTon(0) = 0        ' Sound bei nächsten erreichen wieder abspielen
End If
If .Range("A8") = 8 Then
If DoTon(1) = 0 Then
Call sndPlaySound32("c:\Windows\media\Windows XP-Anmeldesound.wav", 1)
DoTon(1) = 1
End If
Else
DoTon(1) = 0
End If
If .Range("A9") = 9 Then
If DoTon(2) = 0 Then
Call sndPlaySound32("c:\Windows\media\Windows XP-Batterie kritisch.wav", 1)
DoTon(2) = 1
End If
Else
DoTon(2) = 0
End If
End With
End Sub

Tabelle1

	F	G
6	c:\Windows\media\	Windows XP-Herunterfahren.wav

Die anderen sind analog.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Sound-Datei je nach Vorgabe abspielen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread