Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wav-Datei in xls integriefen ?

Wav-Datei in xls integriefen ?
06.06.2014 15:40:29
Werner
Hallo Excel-Freunde,
ich habe eine XLS, die bei Erreichen bestimmer Kriterien
eine WAV-Datei abspielt.
Da ich die Datei nun versenden zu anderen Usern versenden möchte:
Ist es möglich, die WAV-Datei so in der XLS zu intergrieren
dass der User nicht 2 Dateien erhält ?
Freu mich auf einen Tipp
Gruss
Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wav-Datei in xls integriefen ?
06.06.2014 18:30:51
Mullit
Hallo,
eine Möglichkeit wäre,
die Datei über Einfügen >>> Object (Object einfügen) >>> Aus Datei erstellen
einzufügen;
dann hiermit abspielen:
Public Sub test()
ActiveSheet.OLEObjects(1).Verb Verb:=xlVerbPrimary
End Sub
Gruß,

AW: Wav-Datei in xls integriefen ? @Mullit
10.06.2014 12:59:21
Werner
Hallo Mullit
sorry, für die verspätete Antwort.
Habe es so wie du geschrieben gemacht
nur funktioniert das nicht :(
Was hab ich falsch gemacht ?
Freu mich auf einen Tip
Gruss
Werner
hier mal die Datei
https://www.herber.de/bbs/user/91052.xls
Wenn ich es jedoch in einer neuen "Blanko-Datei" erstellen
funktioniert es
https://www.herber.de/bbs/user/91053.xls

Anzeige
AW: Wav-Datei in xls integriefen ? @Mullit
10.06.2014 21:53:59
Mullit
Hallo,
kein Problem, Du hast bereits mit
den Checkboxen 2 OLEObjects in Deiner Tabelle,
also sollte dies funktionieren:
(die Namen der Objekte stehen ebenfalls oben links im Namensfeld)
Public Sub test()
ActiveSheet.OLEObjects("Objekt 1").Verb Verb:=xlVerbPrimary
End Sub

oder namensunabhängig:
Option Explicit
Public Sub test()
Dim objOLEObject As OLEObject
For Each objOLEObject In ActiveSheet.OLEObjects
With objOLEObject
If .progID = "Package" Then
.Verb Verb:=xlVerbPrimary
Exit For
End If
End With
Next
End Sub
Gruß,
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige