Lock Aspect Ratio - Portrait Picture

below is my coding, it inserts a picture into a cell and fits to what ever the cell size is.

my cells are more landscape (fixed) than portrait, how can i still make the images fit into the cell height wise but keep a aspect ratio of a portrait picture.

Sub InsertPicture1()
Dim myPicture As Variant
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
If myPicture = False Then Exit Sub
Application.ScreenUpdating = False

[Code] ........