hücreye resim ekleme

[yusufpol123]

sa kolay gelsin hücrelere resim eklerken tek tek elimle boyutlandırma zorunda kalıyorum acaba resmi eklerken ne gibi bi çözümle direk olarak resmin hücre boyutunu almasını sağlayabilirim şimdiden teşekküler

 

[kulomer46]

Merhaba

Talebinize benze bir durum için aşağıdaki kodlar benim işime yaramıştı.

    Set resim = ActiveSheet.Pictures.Insert(resimyolu)
        Range("A" & satır).EntireRow.RowHeight = 122
        resim.Top = Range("A" & satır).Top + 5
        resim.Left = Range("A" & satır).Left + 5
        resim.ShapeRange.LockAspectRatio = msoFalse
        resim.Height = 112
        resim.Width = 84

Selamlar...

 

[yusufpol123]

hocam bu kodu nereye atmam gerek

 

[yusufpol123]

kodu nereye atmam gerek

 

[muygun]

Merhaba;
Alternatif:
Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
süt = Target.Column
rsm = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
If rsm = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(rsm)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Offset(0, 0).MergeArea.Height
.Width = ActiveCell.Offset(0, 0).MergeArea.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
Cells(1, 1).Select
End Sub

Kodlarını ekleyin ve resim eklemek istediğiniz hücrede çift tıklayın.
İyi çalışmalar.

 

[kulomer46]

Değerli Arkadaşım

Yukardaki sayın muygun arkadaşımız konuyu çözmüş.

Alternatif olarak; yukarda #2 numaralı mesajda yazılı kodu değilde, alternatif olarak buraya eklenen kodu ve dosyayı kullanabilirsiniz.

Sub Kopyalanan_Resmi_Hücreye_Tam_Sığdır()
'04.10.2022  15:17
    ActiveSheet.Paste
    Selection.ShapeRange.Top = ActiveCell.Top
    Selection.ShapeRange.Left = ActiveCell.Left
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = ActiveCell.Height
    Selection.ShapeRange.Width = ActiveCell.Width
End Sub

Çalışma mantığı: Önce Ek 'teki dosyada excel sayfasında iken yapıştıracağınız hücreyi tıklayıp seçiniz. Sonra yapıştırılacak resmi kopyalayınız.
Sonra dosyada sayfadaki Kopyalanan Resmi Seçili Hücreye Tam Sığdırarak Yapıştır düğmesini tıklayınız.
Resim seçili hücreye tam sığdırılarak yapıştırılır.

Daha pratik çözümler bulunabilir.

Selamlar...

Ekran Resmi

 

[yusufpol123]

teşekkür ederim fakat ürün kodundan seçili klosörden resim aktama ile ilgili bi kod mümkünmü

 

[yusufpol123]

Merhaba,
Excel dosyasının bulunduğu Aktif klasör içerisinde “Resimlerim1” klasörü olduğunu varsayalım. Resimlerim klasörü içerisinde bulunan resimlerden (jpg) ismini yazdığım resmi istediğim herhangi bir excel hücresine mevcut hücre genişliğine uyacak şekilde getirmek istiyorum.
Bu işlemi yapabilecek bir fonksiyona ihtiyacım var.
Örneğin: “Resimlerim” Klasöründe “Y-90.32.001.jpg Y-90.33.002.jpg, Y-90.32.002 .jpg, …. vb. (en az 5000 adet)” isimlere sahip resim dosyaları var.
Excel dosyasında Herhangi bir hücreye “=Y-90.32.001” yazıp Enter tuşuna bastığımda mevcut hücrede “Y-90.32.001.jpg isimli resmin hücre genişliğine uyacak şekilde görünmesini istiyorum.
Umarım böyle bir kod yazmak mümkündür. Bana yardımcı olursanız sevinirim. Şimdiden teşekkür ederim.
forumda araştırma yaptım fakat bi sonuca varmadım .
resim lerin bulunduğu konum : C:\Users\Preshane\OneDrive\Resimler 1

 

[yusufpol123]

https://www.excel.web.tr/threads/klasoerden-resim-kodu-ile-resim-verisi-alma.203573/

forumda cevaplarsanız sevinirim