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ş.