Aligning graphics top left in the target cell after rotation using VBA

Dear Experts:

Below macro, courtesy of Rgonzo1971, batch inserts pictures in Column D. The network paths of these pictures are located in Column C.

The macro works just fine and I was able to tweak it a little bit ...
... i.e. I also integrated an image rotation action for certain images.

The trouble is that the images get rotated around its centers and afterwards the graphics are not aligned top left anymore as are the other pictures.

Has anybody a solution to this problem?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Sub InsertPictures()
'
' by Rgonzo, EE
'
Dim c As Range
Dim Image As Picture
'
For Each c In Range(Range("C2"), Range("C" & Rows.Count).End(xlUp))
    c.Offset(0, 1).Activate
    Set Image = ActiveSheet.Pictures.Insert(c.Value2)
    
        If Image.Height > Image.Width Then
           Image.ShapeRange.Rotation = 90
    
        If Image.Height > Application.CentimetersToPoints(4) Then
        Image.Height = Application.CentimetersToPoints(4)
        
        End If
        
        End If
     
Next
End Sub