>>546
シート1のA列にあるURLから画像を取得しB列に貼りつけ
Sub InsertImages()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim pic As Picture
Dim picURL As String

' シート1を設定
Set ws = ThisWorkbook.Sheets("シート1")

' A列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' A列の各行をループ
For i = 1 To lastRow
picURL = ws.Cells(i, 1).Value

' URLが空でない場合
If picURL <> "" Then
' 画像をB列に貼り付け
Set pic = ws.Pictures.Insert(picURL)
With pic
.Left = ws.Cells(i, 2).Left
.Top = ws.Cells(i, 2).Top
.Placement = xlMoveAndSize
End With
End If
Next i
End Sub