Sayın Jer Fin alttaki kodu dener misiniz?

Sub Resim_Al()

Dim a As Integer

Dim son As Integer

Dim resim As String

son = Range("H" & Rows.Count).End(xlUp).Row

On Error Resume Next

For a = 3 To son

resim = Cells(a, 8)

With ActiveSheet.Pictures.Insert(resim)

.Left = Cells(a, 16).Left

.Top = Cells(a, 16).Top

.ShapeRange.LockAspectRatio = True

.ShapeRange.Height = 49

End With

Rows(a).RowHeight = 50

Next a

On Error GoTo 0

MsgBox "İşlem Tamam", vbInformation, "userx"

End Sub