Per Makro Bilder aus Ordner in Excel einfügen
21.03.2018 10:18:06
gigi
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 9-stellige Artikelnummer (z.B. 00501-0165) in der Spalte D des selben Blattes ausgelesen wird. Die Bilder in dem Order sind alles JPGs und haben die selbe Bezeichnung wie die Artikelnummer in der Spalte D. Wenn ein Bild nicht gefunden wird, soll das Makro diese Zeile einfach überspringen. Die Bilder liegen unter folgendem Pfad ab: C:\Users\arno01\Desktop\Onboarding\PICTURES
Aktuell benutze ich folgenden Code, allerdings bekomme ich die Meldung: "Run-time error '1004': Unable to get the Insert property of the Pictures Class"
Sub InsertPics()
'Loop through Rows 1 - 4
For rw = 1 To 4
'Insert jpg into based on string in Column D
'(Enter the correct path below)
ActiveSheet.Pictures.Insert _
("C:\Users\arno01\Desktop\Onboarding\PICTURES" _
& Range("D" & rw) & ".jpg").Select
'Position and size image
With ActiveSheet.Shapes(Selection.Name)
.Left = ActiveSheet.Cells(rw, 1).Left
.Top = ActiveSheet.Cells(rw, 1).Top
.ScaleWidth 0.2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.2, msoFalse, msoScaleFromTopLeft
End With
Next
End Sub
Anzeige