Selamlar ,

Sizin için aşağıdaki kodu hazırladım.Çalıştırdığınızda A sütununda yazan adreslerdeki resimler B sütunundaki satırların karşısın getiriyor.
Bir güzellikte hücrenin genişliği ne kadar ise oraya sığdırıyor.

Umarım faydalı olur.
İyi Çalışmalar.

Sub resimekle()
Dim sPicture As String, pic As Picture
Range("B1").Select
For i = 1 To Range("A500").End(xlUp).Row
sPicture = Cells(i, 1)

If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Offset(0, 0).MergeArea.Height - 1
.Width = ActiveCell.Offset(0, 0).MergeArea.Width - 1.5
.Top = ActiveCell.Top + 1.1
.Left = ActiveCell.Left + 1
.Placement = xlMoveAndSize
End With
Set pic = Nothing
ActiveCell.Offset(i, 0).Select

Next
End Sub