Grafik Musik einbetten

Computer: Software & Programmierung Visual Basic
#1

Salve an Alle,

ich löse mit einem Symbol ein Makro aus, welches eine MSGBOX zur Anzeige bringt. Gleichzeitig soll ein kleines Bild angezeigt werden und eine Musik abgespielt werden.
Mit Einfügen aus Grafik bzw. Datei funktioniert es sehr unbefriedigend. Es wird dabei der Standard-Viewer bzw. -Player geöffnet und auf dem Tabellenblatt sind zwei unschöne Symbole, die auch noch dummerweise verschiebbar sind.

Kann mir jemand ein Code zusenden (auf neudeutsch: posten), wie man

  • eine Datei richtig einbettet (ohne Symbole),
  • wie man die eingebettete Grafik/Sounddatei richtig aufruft (Dateinamen statt Objektnummer) und
  • wie man das Öffnen des Standard-Viewer bzw. Player vermeidet.

Mein Standard-Viewer ist ACDSee, der auch Bilder vertonen kann. Mit *.mp3 klappt es leider nicht. Er möchte *.wma. Mein Standard-Player ist Media-Monkey 2.5, der wiederum Winamp öffnet.

Also Probleme über Prpbleme. MS:„Wir haben eine Lösung und Sie damit ein Problem.“

Kann jemand aussagekräftige Lösungen meinerProbleme liefern ?

Großen Dank an Alle, die sich die Mühe machen.

Gruß Manne

#2

Hallo Manne,

Brettbeschreibung gelesen? Um welches Programm, Version geht es?

Sag VB6.0 und ich bin glücklich *kicher*

ich löse mit einem Symbol ein Makro aus, welches eine MSGBOX
zur Anzeige bringt.

Aha, und wo ist der Code?

Gleichzeitig soll ein kleines Bild
angezeigt werden und eine Musik abgespielt werden.
Mit Einfügen aus Grafik bzw. Datei funktioniert es sehr
unbefriedigend.

Mir sehr unklar was eine Msgbox mit dem Einfügen einer Grafik zu tan hat.

Es wird dabei der Standard-Viewer bzw. -Player
geöffnet und auf dem Tabellenblatt sind zwei unschöne Symbole,
die auch noch dummerweise verschiebbar sind.

Wieso sind da zwei Symbole wenn du nur einen Player öffnest?

  • eine Datei richtig einbettet (ohne Symbole),

Du meinst den (Hyper) link auf eine datei *rat*

  • wie man die eingebettete Grafik/Sounddatei richtig aufruft
    (Dateinamen statt Objektnummer)

Objektnummer?

  • wie man das Öffnen des Standard-Viewer bzw. Player
    vermeidet.

? Ohne Player kein Abspielen, soll er im Hintergrund geöffnet werden?

Mein Standard-Viewer ist ACDSee, der auch Bilder vertonen
kann. Mit *.mp3 klappt es leider nicht. Er möchte *.wma. Mein
Standard-Player ist Media-Monkey 2.5, der wiederum Winamp
öffnet.

Dann nimm doch gleich Winamp, der kann auch mp3s.
Und überhaupt, wie sollen dir denn da ich oder andere helfen? Wenn dein acdsee keine mp3 will dann will er halt nicht.

Kann jemand aussagekräftige Lösungen meinerProbleme liefern ?

Im derzeitigen zeitpunkt, Fragen über Fragen, kann ich das nicht.

Gruß
Reinhard

#3

Salve Reinhard,

bittere Enttäuschung. Es geht um Excel-VBA. Tut mir echt leid. VB6, so gut bin ich nicht.

Will’ste wirklich den Code meiner MSGBOX ? Hier ist er :
Sub Entwickler()
MsgBox „Entwickler“ & vbCrLf & vbCrLf & „Manfred … (MfA)“ _
& vbCrLf & vbCrLf & „Funk : 0173 …“ & vbCrLf & vbCrLf & _
„Tools sponsered by www.wer-weiss-was.de“, vbExclamation, „ENTWICKLER“
Call OLEBeispiel
End Sub
Oder wolltest Du den gesamten Code. Dann beantrage eine Woche Urlaub.
Welcher TeiL wäre für Dich interessant ?
Ich denke mal „OLÈ“.

Sub OLEBeispiel()
Tabelle1.OLEObjects(1).Verb Verb:=xlVerbPrimary
Sheets(„Bericht“).OLEObjects.Add Filename:=„D:\MANNE\Bilder\ich.jpg“
End Sub
OLEObjects(1) ist eine Sound-Datei (mp3).
Ist der Zusammenhang zwischen MSGBOX und BILD/SOUND nun verständlich ?

Die Symbole sind durch „Einfügen -> Grafik -> Aus Datei…“ bzw. „Einfügen -> Objekt… -> Aus Datei erstellen“ entstanden.

Wieso sind da zwei Symbole wenn du nur einen Player öffnest?

Zwei Symbole : Eins für das Bld, eins für den Sound.

Du meinst den (Hyper) link auf eine datei *rat*

Bloß kein Hyperlink. Ich will das Programm weitergeben und da müssen die Dateien eingebettet sein.

Objektnummer?

Tabelle1.OLEObjects(1)…
Morgen weiß ich nicht mehr was Index (1), (8),… und andere bedeuten soll.

? Ohne Player kein Abspielen, soll er im Hintergrund geöffnet
werden?

Genau das. Hast den Nagel auf den Kopf getroffen. Minimierte Ausführung. Das macht mein Radioprogramm, und andere bestimmt auch, automatisch.

Dann nimm doch gleich Winamp, der kann auch mp3s.

Kann Media-Monkey auch. Hat einen eigenen Player. Optional stellt er noch WINAMP zur verfügung.
Ich kann jederzeit auf andere Player umstellen, wenn es notwenig sein sollte, außer WMP11. Den mag’ ich nicht.

Und überhaupt, wie sollen dir denn da ich oder andere helfen?
Wenn dein acdsee keine mp3 will dann will er halt nicht.

Hier geht es nicht um den einen bestimmten Player oder Viewer, sondern um die richtige Deklaration, Initialisierung und Abruf von OLE-Objekten.

Im derzeitigen zeitpunkt, Fragen über Fragen, kann ich das
nicht.

Fragen hab’ ich selber genug, bloß keine gescheiten Antworten darauf.
Ganz wichtige Frage wäre z.B.: „Wie lauten die Lottozahlen der nächsten Woche ?“ :wink:

Gruß Manne

#4

Salve Reinhard,

Ihr kennt es Alle. Man hat an einem Projekt lange gearbeitet. Es ist zu 99,9% fertig. Nur noch ein ganz kleines Problemchen. Dauert ja nur 5 Minuten.
Der Aschenbecher quillt über, Kaffeee ist auch gleich alle, die Frau ist bei einem Anderen, die Katze verhunget. Die 5 Minuten dauern schon 3 Tage.
So geht’s mir jetzt.

Das Problemchen ist das minimierte Abspielen einer Musikdatei.

Ich habe den Ansatz geändert. Keine MSGBOX mehr, dafür ein Blattbereich mit dem gleichen Text und ein eingebettes Bild, der zu gegebenen Zeit eingeblendet wird.

 Sheets("Erklärungen").Select
 Range("A270").Select
 Call Player
 With ActiveWindow.VisibleRange
 ActiveWindow.SmallScroll ToLeft:=(.Column - 1)
 ActiveWindow.SmallScroll Down:=(ActiveCell.Row - .Row)
 End With

1. Variante

Sub Player()
 Sheets("Erklärungen").OLEObjects(1).Verb Verb:=xlVerbPrimary
End Sub

Funktioniert, aber unbefriedigend. OLEObjects(1) ist Objekt17. (?) Wie ist hier die Zuordnung ? Player Media-Monkey wird geöffnet, welcher wiederum Winamp öffnet und die Musikdatei abspielt.

2. Variante
Starten eines anderen Windows-Programms

Sub Player()
 CreateObject("WScript.Shell").Run "C:\Programme\Winamp\winamp.exe D:\MANNE\I\_engineer.mp3"
End Sub

Funktioniert, aber nur mit Pfad- und Dateiangabe der Musikdatei. Ich habe nirgends eine vernünftige(!) Syntaxbeschreibung von „RUN“ gefunden. Vielleicht gibt’s da eine Minimier-Option. Denn da gibt’s auch eine WAIT-Option.

Wie kann man Variante 1 und 2 richtig zusammenbringen ? So nach der Art .

 CreateObject("WScript.Shell").Run "C:\Programme\Winamp\winamp.exe D:\MANNE\Arbeitszeit.xls!Erklärungen OLEObjects(1).Verb Verb:=xlVerbPrimary"

Funktioniert natürlich nicht so!

Kann jemand helfen ? Ich muß der Katze 'was zu fressen geben!

Gruß Manne

#5

Hallo,

Dein Problem verstehe ich nicht, keine Ahnung von VBA. Aber …

2. Variante
Starten eines anderen Windows-Programms

Sub Player()
CreateObject(„WScript.Shell“).Run
„C:\Programme\Winamp\winamp.exe D:\MANNE\I_engineer.mp3“
End Sub

Funktioniert, aber nur mit Pfad- und Dateiangabe der
Musikdatei. Ich habe nirgends eine vernünftige(!)
Syntaxbeschreibung von „RUN“ gefunden. Vielleicht gibt’s da
eine Minimier-Option.

Du willst ein externes Programm unsichtbar starten? Das ist VB. :smile:

Sub Player()
 Shell "C:\Programme\Winamp\winamp.exe D:\MANNE\I\_engineer.mp3", vbHide
End Sub

Gruß Rainer

#6

Salve Reinhard,

keine Ahnung von VBA

…und ich nicht von VB :wink:

Starten eines anderen Windows-Programms

Klar, aber minimiert mit einer eingebetten Musik-Datei.

CreateObject(„WScript.Shell“).Run
„C:\Programme\Winamp\winamp.exe D:\MANNE\I_engineer.mp3“

Du willst ein externes Programm unsichtbar starten? Das ist
VB. :smile:

Ich wußte bis heute nicht, daß ich VB kann! :smile:)

Wie würde es bei VB gehen ?

Gruß Manne

#7

Hallo Manne,

keine Ahnung von VBA

…und ich nicht von VB :wink:

was Du da schreibst, ist VB. :smile:

Starten eines anderen Windows-Programms

Klar, aber minimiert mit einer eingebetten Musik-Datei.

CreateObject(„WScript.Shell“).Run
„C:\Programme\Winamp\winamp.exe D:\MANNE\I_engineer.mp3“

Du willst ein externes Programm unsichtbar starten? Das ist
VB. :smile:

Ich wußte bis heute nicht, daß ich VB kann! :smile:)

Wie würde es bei VB gehen ?

gefällt Dir der Code nicht? Shell übersehen?

Gruß Rainer

#8

Salve Reinhard,

bin wieder zurück. Danke für Deine Antwort.
So kommen ich nicht auf einen grünen Zweig. Nur Mißverständnisse. Wir reden ständig aneinander vorbei.

Danke trotzdem für Deinne Bemühungen.

Gruß Manne