wav-Datei in Arbeitsmappe integrieren
20.08.2013 14:37:26
reiner
nach Erreichen bestimmter Kriterien wurde mit nachfolgendem Aufruf eine kurze Melodie abgespielt:
Sub PlayWave()
Call sndPlaySound32("E:\Eigene Dateien\Excel\****.wav", 1)
End Sub
Die wav-Datei war dabei jedoch stets als separate Detei abgespeichert.
Nachdem ich herausgefunden habe dass eine wav-Datei in einer Arbeitsmappe abgespeichert werden kann, habe ich mich an nachfolgender Anleitung orientiert:
-----------------------------------------------------------------
von: Nepumuk am: 06.11.2002 - 16:19:15
1. Einfügen - Objekt
2. Aus Datei erstellen
3. Deine Wavedatei suchen
4. Haken bei: als Symbol
5. Ok
im Modul
Worksheets(1).OLEObjects(1).Verb Verb:=xlPrimary
(Beispiel für Tabelle1 1. Objekt)
-----------------------------------------------------------------
Nach dem Einfügen eines neuen Moduls wurde die Programmnweisung lt. Anleitung angepasst:
Da hier nun "
Sub () und End Sub
Fehler beim Kompilieren
Außerhalb einer Prozedur ungültig
Was muss ich tun damit die Fehlermeldung unterbunden und die wav-Datei abgespielt wird?
mfg
reiner
Anzeige