Insert resized photo into merged cell vba

[mpa24]

Hi everybody. Thanks in advance for taking a look at my dilemma. I thought I figured out the code to insert a picture resized to fit into an area of merged cells (F10) so that it is centered within the area depending on if it is a horizontal or vertical picture. The user upgraded to Windows 10, so now when they insert a picture it is somewhat resized from the original picture (it's a little too big for cell F10), but it is now over in cell Q10! If they pick any pictures taken before the upgrade, the vba works fine and they get resized nicely to fit in F10.

Dim Pic
Dim PicFormat$
Dim MyRange$

PicFormat = "All Image Files (*.bmp; *.gif; *.jpg; *.tif), *.bmp; *.gif; *.jpg; *.tif"
Pic = Application.GetOpenFilename(PicFormat)
If Pic = False Then End
    
Range("F10").Select
MyRange = Selection.Address
    
With ActiveSheet.Pictures.Insert(Pic)
    
    With .ShapeRange
        .LockAspectRatio = msoFalse
        If .Width > .Height Then .Width = Range(MyRange).Width
        If .Height > Range(MyRange).Height Then .Height = Range(MyRange).Height
        Else
            .LockAspectRatio = msoTrue
            .Height = Range(MyRange).Height
            .Left = Range(MyRange).Left + ((Range(MyRange).Width - .Width) / 2)
        End If
    End With
End With