Sub InsertPics()
Dim Rw&, PFAD$, Datei$, Bild As Shape
PFAD = "\\levi.com\ls\Regional\LSE\BRU\DATA\Merchandising\H2
With ActiveSheet
For Rw = 2 To 100
Datei = .Range("B" & 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