Klasorden Hücreye Sığdırmalı Resim Ekleme

[owenefe]

Selamlar Arkadaşlar.

Bir excel dosyam var bunun belli sayfalarında (Sayfalar birbirinin aynısı) bazı hücrelere resim çağırmak istiyorum ama resim için belirlediğim alanda sağdan solda üstten aşağıdan ortalansın yada tam otursun. Ekteki resimdeki kırmızı içine aldığım A1 A2 yazanların bilgisayarımdaki bir klasörde yine aynı isimle resimleri var. Herismin adıyla aynı olan resmin o kırmızı çerçeveli alana gelmesini istiyorum. Ve bunu sayfa adı vererek yapaiblir miyim. Yani bu resim ekleme işini sayfa adı F(1), F(2).. olan sayfalarda uygula tarzı birşey.. Resimleri ekledim

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
sayfa = Array("F1 (1)", "F1 (2)", "F1 (3)")
yol = "C:\Users\metin\Desktop\Turktelekom\2 Outdoor LTE Ilave\KM1730\Fotolar - Copy\"
For Each syf In sayfa
    With Sheets(syf)
        For Each shp In .Pictures
            shp.Delete
        Next
        
        For a = 25 To 47 Step 22
            For b = 2 To 10 Step 8
                Set res = .Pictures.Insert(yol & .Cells(a, b) & ".jpg")
                res.ShapeRange.LockAspectRatio = msoFalse
                res.Top = .Range(.Cells(a - 17, b), .Cells(a - 1, b + 6)).Top
                res.Left = .Range(.Cells(a - 17, b), .Cells(a - 1, b + 6)).Left
                res.Width = .Range(.Cells(a - 17, b), .Cells(a - 1, b + 6)).Width
                res.Height = .Range(.Cells(a - 17, b), .Cells(a - 1, b + 6)).Height
            Next
        Next
    End With
Next
End Sub