Hücre İçine Resim Ekleme

selamlar;

yaptığım Excel çalışmamda H hücresindeki resim yolunda bulunan resmi p hücresine makro ile yerleştirmek istiyorum yardım ederseniz sevinirim.

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

Yardımız için teşekkürler cevap vermediğim için kusura bakmayın daha yeniyim forumda yavaş yavaş forum kurallarına adapte oluyorum.
tam istediğim gibi olmuş.