Excel - images get from URL, resize rows by image

ave.vb

Sub URLPictureInsert()
'Updateby Extendoffice 20161116
    Dim Pshp As Shape
    On Error Resume Next
    Application.ScreenUpdating = False
    Set Rng = ActiveSheet.Range("E2:E640")
    For Each cell In Rng
        filenam = cell
        ActiveSheet.Pictures.Insert(filenam).Select
        Set Pshp = Selection.ShapeRange.Item(1)
        With Pshp
           .LockAspectRatio = msoTrue
           .Width = 158
           .Cut
        End With
        Cells(cell.Row, cell.Column + 1).PasteSpecial
    Next
    Application.ScreenUpdating = True
End Sub
Sub ResizePictureRow()
    Dim shpPic As Shape
   
    On Error Resume Next
    Set shpPic = ActiveSheet.Shapes(Selection.Name)
    On Error GoTo 0
   
    If Not shpPic Is Nothing Then
        If shpPic.Type = msoPicture Then
            ActiveSheet.Rows(shpPic.TopLeftCell.Row).RowHeight = shpPic.Height
        End If
    End If
End Sub
Sub ResizeAllPictureRow()
Dim Sh As Shape
With ActiveSheet
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("F84:F640")) Is Nothing Then
         If Sh.Type = msoPicture Then ActiveSheet.Rows(Sh.TopLeftCell.Row).RowHeight = Sh.Height
       End If
    Next Sh
End With
End Sub

https://www.extendoffice.com/documents/excel/4212-excel-insert-image-from-url.html

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_winother/resize-row-to-fit-picture/5639d808-c490-4481-82b4-8fe0a8c49803