Sub InsertPicture()
Dim sPicture, pic
sPicture = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = Range("S6:AL27").Height
.Width = Range("S6:AL27").Width
.Top = Range("S6:AL27").Top
.Left = Range("S6:AL27").Left
.Placement = xlMoveAndSize
End With
pic.Name = "Bild"
Set pic = Nothing
End Sub