Skip to main content

AccessTr.neT


Hücre İçine Resim Ekleme

Hücre İçine Resim Ekleme

Çözüldü #1
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.
.zip Yeni Microsoft Excel Çalışma Sayfası.zip (Dosya Boyutu: 31,77 KB | İndirme Sayısı: 4)
Son Düzenleme: 20/05/2021, 18:39, Düzenleyen: Jer Fin.
Cevapla
#2
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
"Dünyayı fazla düşünme."
Cevapla
#3
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ş.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task