Bilder aus Dateipfad einfügen via Makro
05.12.2023 10:45:01
Benjamin321
vorab: Ja, ich hab die Suche und google inkl. chatgpt bemüht und nichts funktionierendes für mich gefunden.
Ich hab eine Excelliste, die sich immer wieder erweitert. Darin möchte ich zu den einzelnen Produkten über Artikelcode Bilder in eine Zelle einfügen.
D.h. Pfad setzt sich zusammen aus Ordner-Pfad, den der User z.B. in Zelle B1 eingibt + Artikelnummer aus Zelle + Endung (.jpg oder .png oder .jpeg)
Die Bildtypen variieren
D.h. wenn sich die Datei um neue Artikel erweitert, gibt der Anwender nur den Pfad ein, in dem er die Bilder hat und drückt dann einen Button.
ganz schön wäre es noch, wenn ein größeres Vorschaubild angezeigt wird, wenn der User mit der Maus übers Bild fährt. Hatte ich in irgendeinem Makro mal gefunden.
Ein zweiter Code wäre noch super (evtl. neuer Thread) bei dem der Anwender die Zeilenhöhe eingibt und über einen Button diese Vergrößern oder verkleinern kann, zur besseren Darstellung der Bilder.
Hier mein aktueller Code:
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
On Error Resume Next
Pfad = "C:\Bilder\" 'Pfad soll dann aus Zelle z.B. B1 ausgelesen werden
For Wiederholungen = 2 To Range("A65536").End(xlUp).Row
Cells(Wiederholungen, 2).Activate
Selection.InsertPictureInCell(Pfad & Cells(Wiederholungen, 1) & ".png").Select 'hier auch auf .jpg überprüfen. Aktuell gibt es Fehlermeldung wenn nichts vorhanden
Next
End SubVielen Dank schon mal