Bilder Abfrage aus der Tabelle in Userform anzeigen

[Stefan87]

Hallo zusammen



Ich bin mal wieder am basteln an meiner Excel Tabelle die dank einem User von hier einwandfrei funktioniert.



Jetzt wollte ich mal was ausprobieren, und suche noch nach einer Lösung.



Ich möchte gerne ein Bild in die jeweilge Spalte ablegen. ( Funktioniert soweit )

Jetzt suche ich noch nach der Lösung, wie bekomme ich beim Abfragen der Zelle das abelegte Bild wieder zurück gezeigt?



Jetzt legt es mir dies als Wort ab. Möchte aber beim Abfragen, das es mir das Bild anzeigt und nicht das Wort.





Wer hat da einen Vorschlag?



Mein Code für das Eintragen zur Zeit sieht so aus: ( Nur als Testversuch )

Code:

Option Explicit
Const Pfad As String = "G:\Dropbox\Dropbox\Bürge-Fischer AG\Schärer&Schläpfer\Dosenliste\Bildervorlagen\"

Private Sub ListBox1_Click()

Image1.Picture = LoadPicture(Pfad & ListBox1.List(ListBox1.ListIndex) & ".jpg")

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Tabelle3.Range("BG6").Value = ListBox1.List(ListBox1.ListIndex)
Unload Me

End Sub

Private Sub UserForm_Initialize()

Dim AktDat As String

AktDat = Dir(Pfad & "*.jpg")

While AktDat <> ""
    ListBox1.AddItem Left(AktDat, Len(AktDat) - 4)
    AktDat = Dir
   
Wend

ListBox1.Selected(0) = True

End Sub

[schauan]

Hallöchen,

in eine Listbox bekommst Du keine Bilder

[Stefan87]

Gibt es den nicht die Option in der UserForm eine Anzeige einzufügen, und dann das Bild aus der Excel Tabelle abfragen?

[schauan]

Hallöchen,

Du könntest die Bilder zwischenspeichern und dann aus der Datei ins Image-Control laden.

[Stefan87]

Ok. 
Hast du einen Vorschlag wie der Code aussehen könnte, bzw wie müsste ich das umsetzen?

[volti]

Hallo Stefan,

wenn Du Bilder, die auf einem Tabellenblatt liegen, in eine Userform einfügen möchtest habe ich hier einen Vorschlag für Dich...

VBA - Grafik aus Tabelle in Userform laden (clever-excel-forum.de)

Gruß
Karl-Heinz

[Stefan87]

Das sieht sehr nach meinem Wunsch aus.
Jetzt ist nur noch die Aufgabe meinerseits, dies in mein komplexes Tool einzubauen, was sicher eine Herausforderung wird.