LoadPicture in VBA 6.0 / Excel 2002

Computer: Software & Programmierung Office Software
1

Hallo,

ich habe in einem verborgenen Blatt „pics“ meiner Arbeitsmappe die jpg-Bilder 1 bis 50 abgelegt.

In einem Formular mit leerem Bildrahmen möchte ich - je nach Auswahl aus einem Listenfeld - eines der Bilder als Muster zuweisen.

Mit LoadPicture komme ich aber nicht weiter, da hiermit nur separate jpg-Dateien per Pfadangabe geladen werden können, aber keine Bilder, die bereits in der Arbeitsmappe „auf Vorrat“ vorhanden sind.

Oder hat jemand eine Idee, was ich sonst noch testen könnte?

Danke & Gruß
smalbop

2

ich habe in einem verborgenen Blatt „pics“ meiner Arbeitsmappe
die jpg-Bilder 1 bis 50 abgelegt.

In einem Formular mit leerem Bildrahmen möchte ich - je nach
Auswahl aus einem Listenfeld - eines der Bilder als Muster
zuweisen.

Mit LoadPicture komme ich aber nicht weiter, da hiermit nur
separate jpg-Dateien per Pfadangabe geladen werden können,
aber keine Bilder, die bereits in der Arbeitsmappe „auf
Vorrat“ vorhanden sind.

Hallo smalbop,

erzeuge mal in „pics“ 50 „Bildrahmen“ und stell da jeweils mit Loadpicture eins der Bilder rein.

Dann kann man prinzipiell das so machen:

Tabelle1.Image1.Picture = Tabelle3.Image1.Picture
(tabelle3 ist der Codename von pics)

Gruß
Reinhard

3

Hallo Reinhard,

Dann kann man prinzipiell das so machen:

Tabelle1.Image1.Picture = Tabelle3.Image1.Picture
(tabelle3 ist der Codename von pics)

Vielen Dank für den Tipp. Habe ich nach entsprechender Vorarbeit in einer 2007er-Testdatei (habe hier nur 2007) versucht mit

Sub test()
UserForm1.Image1.Picture = Worksheets(1).Shapes(1).Picture
End Sub

Scheitert aber (Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht)

Auch in der 2007er-Entwicklerreferenz wird ausschließlich gesagt, dass man die Picture-Eigenschaft mit LoadPicture(Pfad) zuweisen kann.

Sieht wohl aus, als müsste ich jede Datei mit einem ganzen Ordner voller JPGs koppeln. Seufz.

Gruß
smalbop

4

hallo smalbop,

Sieht wohl aus, als müsste ich jede Datei mit einem ganzen
Ordner voller JPGs koppeln. Seufz.

nein, das kriegen wir schon hin *sehr glaub*

Am besten ist, du bastelst eine Beispielmappe mit paar Images in einem Blatt, dazu die Userform usw.
Dann hochladen mit FAQ:2606

Gruß
Reinhard

5

Hallo Reinhard

Am besten ist, du bastelst eine Beispielmappe mit paar Images
in einem Blatt, dazu die Userform usw.
Dann hochladen mit FAQ:2606

Vielen Dank für deine Bereitschaft, dir das Problem mal anzusehen. Hat feiertagsbedingt ein bisschen gedauert, aber hier ist nun die Mappe. Ich hoffe, das mit dem herunterladen klappt. Sonst halt per E-Mail.

http://rapidshare.com/files/326659723/Beispielmappe…

Gruß
smalbop