VBA to add picture to cell only works with landscape|VBA & Macros|Excel Forum|My Online Training Hub

Using the below code to add pictures to excel when you click in a cell, it works as expected with landscape images but portrait ones are added to the right and above the target cell. 

Sub picAdd()
Dim sFile As Variant, r As Range
sFile = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.JPG;*.JPEG;*.png;*.bmp), *.jpg;*.JPG;*.JPEG;*.png;*.bmp", Title:="Browse to select a picture")
If sFile = False Then Exit Sub
On Error Resume Next
Set r = ActiveCell
On Error GoTo 0
If r Is Nothing Then Exit Sub
If r.Count > 1 Then Exit Sub
ActiveSheet.Pictures.Insert (sFile)
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
.LockAspectRatio = True
.Top = r.Top
.Left = r.Left
.Height = r.RowHeight
.Placement = xlMoveAndSize
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("1:2")) Is Nothing Or Target.Cells.CountLarge > 1 Then
Exit Sub
End If

If Not Intersect(Target, Range("J:K")) Is Nothing Then
Call picAdd
End If
End Sub