Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bilder Abfrage aus der Tabelle in Userform anzeigen
#1
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
Antworten Top
#2
Hallöchen,

in eine Listbox bekommst Du keine Bilder Sad
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Gibt es den nicht die Option in der UserForm eine Anzeige einzufügen, und dann das Bild aus der Excel Tabelle abfragen?
Antworten Top
#4
Hallöchen,

Du könntest die Bilder zwischenspeichern und dann aus der Datei ins Image-Control laden.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
Ok. 
Hast du einen Vorschlag wie der Code aussehen könnte, bzw wie müsste ich das umsetzen?
Antworten Top
#6
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
Antworten Top
#7
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. 79
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste