insert a photo (any file type), resize it, and place it in a specific location.

To date i have the following code written.

Sub InsertPhoto()
Range("E7").Select
ActiveSheet.Pictures.Insert( _
Application.GetOpenFilename( _
"JPG picture files (*.jpg),*.jpg", , "Select the picture")).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 800
    Selection.ShapeRange.Width = 343
End Sub

With the code shown above I am only able to post JPeg images and I get a run time error when I attempt to cancel out of the search window (when selecting a file to insert).

Can someone tell me what I need to do to allow my searches to cancel and allow me to search for and resize all file types and not simply JPeg images.

Thanks.