With
ActiveSheet.Shapes.AddPicture(Filename:=strBild, LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
Width:=Range(arrBereiche(bytBild - 1)).Width, _
Height:=Range(arrBereiche(bytBild - 1)).Height)
.Top = Range(arrBereiche(bytBild - 1)).Top
.Left = Range(arrBereiche(bytBild - 1)).Left
<strong>.Placement = xlMoveAndSize</strong>
End
With