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 

到目前为止工作，我可以得到的图像，但现在当然是把所有的图片在彼此之上…我找不到一种方法来放置每个图像后anoter …任何帮助？