Thema: Bilder automatisch in Excel einfügen
Ich habe eine Exceltabelle mit Artikelnummern in Spalte A. Des Weiteren habe ich einen Ordner mit Bildern. Die Bilder sind nach den Artikelnummern der abgebildeten Artikel benannt. Die Bilder sind im JEPG-Format.
Ich weiß, dass man mit folgendem Makro sich viel Arbeit ersparen kann:
Option Explicit
Sub Bilder_einfügen()
Dim Pfad As String, Wiederholungen As Long
Pfad = "C:\Dokumente und Einstellungen\trainee5\Desktop\Breite112xHöhe118"
For Wiederholungen = 2 To Range("A2").End(xlUp).Row
Cells(Wiederholungen, 3).Activate
ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1) & ".jpg").Select
Next
End Sub
Allerdings habe ich keine Ahnung von Makros und VB. Ich habe breits folgende HP benutzt: www.Excelbeispiele.de
Nur habe ich in meiner Excelversion nicht die Möglichkeit unter Extras;Makro den "Optionen-Button" aufzurufen, den ich für die Tastenkombination des Makros brauche. Wie bekomme ich das hin, dass die Bilder in meiner Excelliste in die Spalte F eingefügt werden?
Vielen Dank im Voraus!
Malte
Antwort schreiben
Antwort 1 von Hajo_Zi vom 27.08.2019, 13:12 Options
Hallo Mate,
auf dieser Seite findest Du einige Beispiel zum Bild einfügen.
Link zur SeiteGruß Hajo