Bilder aus Ordner Artikelnummern zuordnen

Sub InsertPics()

Dim Rw&, PFAD$, Datei$, Bild As Shape

PFAD = "C:\Users\PC\Desktop\Bags-Pics\"

With ActiveSheet

For Rw = 2 To 10

Datei = .Range("C" & Rw) & ".jpg"

If Dir(PFAD & Datei)  vbNullString Then

.Pictures.Insert (PFAD & Datei)

Set Bild = .Shapes(.Shapes.Count)

Bild.LockAspectRatio = msoFalse

Bild.Left = .Range("A" & Rw).Left

Bild.Top = .Range("A" & Rw).Top

Bild.Width = .Range("A" & Rw).Width

Bild.Height = .Range("A" & Rw).Height

End If

Next

End With

End Sub