Bild als OLE-Objekt einbinden

[Mabuse]

Hallo!

Ich habe einen Button mit folgendem Code verbunden:

Sub Click(Source As Button)   
   Dim msApp As Variant
   Set msApp = CreateObject("Powerpoint.application")
   msApp.visible=True
   msApp.presentations.open "L:\Marketing\Headline.ppt", True
End Sub

Das Ganze funktioniert einwandfrei. Kennt jemand eine Variante, in der ich BMP, TIF oder anderen Graphiken auf diese Weise einbinden kann? Leider habe ich bisher kein passendes OLE-Objekt gefunden. Excel, Word und  Access sind kein Problem. Gibt es soetwas für MSPAINT oder den Office Picture-Manager?

Vielen Dank im voraus für Eure Hilfe!

[BigWim]

Starte die Anwendung doch über Shell

Examples: Shell  function 
The following example is specific to Windows:
' Start the Windows Calculator as a normal (not minimized)
' window with focus.
Dim result As Integer
result = Shell("CALC.EXE", 1)

[Mabuse]

Hallo BigWim,

danke für die schnelle Antwort. Ich habe nur ein Beispielpfad angegeben. In Wirklichkeit sind dort noch Leerzeichen. Wenn ich im Shellbefehl z.B. mspaint.exe und den Datenpfad mit den Leerzeichen angeben will, funktioniert es nicht. Ich habe es schon in vielen Kombinationen von Anführungszeichen ausgetestet - ohne Erfolg.

Viele Grüsse

[m3]

Na dann gib den Pfad ohne Leerzeichen in der ~ Notation an
C:\Progra~1\...

[BigWim]

Wenn ich im Shellbefehl z.B. mspaint.exe und den Datenpfad mit den Leerzeichen angeben will, funktioniert es nicht

Bau den Aufruf in einer Variable zusammen. Zum Beispiel

MyAufruf = {"c:\pr o gra m m e\mspaint.exe" "c:\eigene Bilder\bild1.bmp"}
result = Shell(MyAufruf, 1)

Das muss gehen.