+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Hücre İçine Resim Ekleme (/konu-hucre-icine-resim-ekleme.html)
Hücre İçine Resim Ekleme - Jer Fin - 20/05/2021
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.
RE: Hücre İçine Resim Ekleme - userx - 20/05/2021
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
RE: Hücre İçine Resim Ekleme - Jer Fin - 23/05/2021
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ş.