Sub import_image()
Application.ScreenUpdating = False
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
On Error Resume Next
L = Range("K26").Left + 5
T = Range("K26").Top + 5
W = Range("K26").Width - 13
H = Range("K26").Height - 13
Image = Application.GetOpenFilename
ActiveSheet.Shapes.AddPicture Image, True, True, L, T, W, H
On Error GoTo 0
Application.ScreenUpdating = True
End Sub