Public Sub Gebietskarten_aktualisieren()
Const PICTURE_HEIGHT = 195
Const PICTURE_WIDTH = 298.6
With Worksheets("Kartendruck")
Pictures.Delete
Set objShape = .Shapes.AddPicture(Filename:=Cells(33, 1).Value, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=.Cells(1, 4).Left, Top:=.Cells(4, 1).Top, _
Width:=PICTURE_WIDTH, Height:=PICTURE_HEIGHT)
objShape.Name = "Bild_01"
Set objShape = .Shapes.AddPicture(Filename:=Cells(33, 24).Value, _
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
Left:=.Cells(1, 27).Left, Top:=.Cells(4, 1).Top, _
Width:=PICTURE_WIDTH, Height:=PICTURE_HEIGHT)
objShape.Name = "Bild_02"
End With
End Sub