Как я могу автоматически заполнить миниатюры с URL в Excel?

Question

У меня есть тысячи URL-адресов в столбце Excel, и мне бы хотелось, чтобы поиск автоматически вставлял изображение в ячейку справа от имени URL-адреса ... Можно ли это сделать в Excel или на листах Google?

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).Select
            Set shp = ActiveSheet.Shapes(Selection.Name)
            shp.Top = Cells(i, "B").Top
            shp.Left = Cells(i, "B").Left
            shp.Height = 100
            shp.Width = 100
        End With
    Next i

End Sub

Например: