Excel VBA：如何从URL插入图片？

我的工作表结构如下：

A    |B   |C
-------------
Item1|Url |
Item2|Url |
Item3|Url |

我需要实现的是读取每个URL并将图像放入C列中的每个单元格。我现在的代码如下：

Sub sg()
Dim i As Integer
Dim urlImg As String
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim rowCount As Long
rowCount = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
MsgBox (rowCount)


For i = 2 To rowCount
    urlImg = Cells(i, 3).Value
    Cells(i, 3).RowHeight = Range("b" & i).offset(rowOffset:=0, columnOffset:=0).Top + 5
    alto = Range("b" & i).offset(rowOffset:=0, columnOffset:=0).Top + 5
    sinistra = Range("b" & i).offset(rowOffset:=0, columnOffset:=0).Left + 5
    ridimensionamentoAltezza = Range("b" & i).offset(rowOffset:=0, columnOffset:=0).Height - 10
    ridimensionamentoLarghezza = Range("b" & i).offset(rowOffset:=0, columnOffset:=0).Width - 10


    With ActiveSheet.Pictures.Insert(urlImg)
        .Top = alto
        .Left = sinistra
        .Height = ridimensionamentoAltezza
        .Width = ridimensionamentoLarghezza
    End With
Next i

End Sub

---

到目前为止正在工作，我可以得到图片，但现在当然是把所有的图片放在彼此的上面。。。我找不到一种方法把每一张照片一张接一张地放在一起。。。有什么帮助吗？

你说Url在B列，但在你的代码中，你从F列得到它，从J列得到行高@RobinMackenzie是的对不起…这只是为了简单的写作。。F=B和J=C。。我是sorry@RobinMackenzie编辑，感谢您注意到我测试了您的代码，它工作正常，图像被放置在相应的行上，而不是像您所说的那样彼此重叠。所以我不明白问题是什么，你说Url在B列，但在你的代码中，你从F列得到它，也从J列得到行高@RobinMackenzie是的对不起…这只是为了简单的写作。。F=B和J=C。。我是sorry@RobinMackenzie编辑，感谢您注意到我测试了您的代码，它工作正常，图像被放置在相应的行上，而不是像您所说的那样彼此重叠。所以我不明白问题是什么