Перенос изображений с URL в Excel

Question

Ссылка на это обсуждение о переносе изображений из URL в Excel Как я могу отобразить URL в качестве изображения в ячейке Excel?

Код VBA выглядит отлично и работает, мой вопрос здесь заключается в том, как я могу поместить каждое перенесенное изображение в соседнюю ячейку с указанным размером. например, если у меня есть URL в ячейке A1, то изображение должно быть помещено в ячейку B1 размером 100X100.

Я ценю помощь

Answer 1

Попробуйте эту модификацию:

Sub InstallPictures_2()
    Dim i As Long, v As String, shp As Shape
    For i = 1 To 1000
        v = Cells(i, "A").Value
        If v = "" Then Exit For
        With ActiveSheet.Pictures
            .Insert (v)
            Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub