Bilder immer mit gleicher Größe einfügen

[snb]

Vielleicht auch:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$1" Then
    c00 = "D:\SNB_\OF\"
    For Each it In Shapes
     If it.TopLeftCell = Cells(2, 1) Then it.Delete
    Next
       
    Shapes.AddPicture c00 & Target & ".jpg", 1, 1, Cells(2, 1).Left, Cells(2, 1).Top, Cells(2, 1).Width, Cells(2, 1).Height
  End If
End Sub