Office: (Office 2007) Alternative zu LoadPicture()?

Hallo,

erst kürzlich hatte ich hier beschrieben, dass LoadPicture() unter aktuellem WIN10 nur Pfadlängen

:)

 

Hallo,

teste mal:

Private Sub UserForm_Initialize()

Dim objImageFile As Object

Set objImageFile = CreateObject(Class:="WIA.ImageFile")

Call objImageFile.LoadFile(Filename:="G:\Eigene Dateien\Eigene Bilder\Bayern.png")

Set Image1.Picture = objImageFile.FileData.Picture

Set objImageFile = Nothing

End Sub

 

Hallo Nepomuk,

danke für Deine Hilfe. Ich bin nicht so gut in den modernen Prg.-Sprachen (bin schon bissl älter) - aber wenn ich Deine Prozedur richtig verstehe, dann wird in dem Excel.Sheet das Bild als Objekt creiert und dann an das Image-Steuerelement der Userform übergeben.

Es sieht so aus bei mir:

Private Sub UserForm_Initialize()
Dim objImageFile As Object

Set objImageFile = CreateObject(Class:="excel.sheet")

Call objImageFile.LoadFile(Filename:="G:Test20190920-0010-C_115121_Korsika-Fahrt___auf_der_Autobahn_A96_kurz_vor_der_Grenze_zu_Oesterreich.jpg")

Set Image1.Picture = objImageFile.FileData.Picture

Set objImageFile = Nothing

End Sub

Das Makro bricht beim Call-Aufruf mit "Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht" ab. Irgendwas habe ich da falsch gemacht - kannst Du mir sagen was?

 

Hallo,

welche Zeile markiert der Debugger?

 

Hallo,

der Debugger steht auf dem Call-Aufruf

bufofahrer

 

Hallo bufofahrer,

dann schau dir nochmal das Beispiel von Nepumuk an, insbesondere den Part mit CreateObject(..)

Ulrich

 

Hallo Knobbi38,

genau das habe ich mir ziemlich lange angeschaut, weil ich es nicht richtig verstehe - daher mein zaghafter Hinweis auf meine Unkenntnis.
Wie sollte das denn richtig aussehen?
Wäre prima von Dir mir dabei zu helfen.

bufofahrer

 

Hallo, *Smilie

Alternativ könntest du mal folgendes versuchen: *wink.gif*

Code:

Den "Subst-Befehl" nutze ich ganz gerne, wenn ein Pfad recht lang ist.

Servus
Case

 

Hallo Case_Germany,

danke für Deinen Tipp! Werde ich heute Abend testen - gebe dann feedback - muss jetzt erst mal weg.

Danke
bufofahrer

 

Hallo,

wie kommst du auf so etwas?

Set objImageFile = CreateObject(Class:="excel.sheet")

Das Original:

Set objImageFile = CreateObject(Class:="WIA.ImageFile")

darf nicht geändert werden.

 

Hallo Case_Germany,

nochmal danke für Deinen Tipp - hab's probiert und die Substitution funktioniert vom Grunde her. Nur - wenn ich dann die LoadPicture-Methode mit dem substituierten Laufwerk und dem Dateinamen benutze, steigt LoadPicture wieder aus, wenn die Summe der ursprünglichen, substituierten Pfadlänge und der Dateinamenslänge größer als 126 ist. LoadPicture resubstituiert sozusagen den Pfad.

Hallo Nepumuk,

Deine Prozedur läuft natürlich!!! - ganz prima und herzlichen Dank. Ich habe schon einige Zeit erfolglos an dem Problem gesessen.
Nimm's mir bitte nicht krumm, dass ich das "WIA.Image" ersetzt hatte. Es war einfach mein Unwissen dazu, "WIA" hatte ich noch nie gesehen und nahm an, dass ich es durch die bei mir konkrete WIndowsAnwendung ersetzen muss (nicht lachen).
Also Deine Prozedur läuft reibungslos - und nun eben "gottseidank" auch mit längeren Pfadnamen - vielen Dank nochmal.

Grüße auch ans Forum

bufofahrer