Makro ile resim eklemek ve eklenen resmin otomatik olarak hücreye sığması

[Acilyardımlazım]

Merhaba arkadaşlar ben makro ile resim eklemek istiyorum ama bunu sadece seçtiğim hucrelerse olmasını istiyorum. Mesela b12 b16 b20 ve c12 c16 c20 hücrelerinde çalışacak makro. Birde resim eklendiğinde otomatik olarak hucre boyutunda olmasını istiyorum. Surda yaptığım dosya var yardımcı olursanız sevinirim. https://docs.google.com/spreadsheets/d/18h3cX32wsrFdrFj2dmoQVhQB6Ykg7sqn/edit?usp=drivesdk&ouid=109535252779034580446&rtpof=true&sd=true

 

[Asri]

Merhaba arkadaşlar ben makro ile resim eklemek istiyorum ama bunu sadece seçtiğim hucrelerse olmasını istiyorum. Mesela b12 b16 b20 ve c12 c16 c20 hücrelerinde çalışacak makro. Birde resim eklendiğinde otomatik olarak hucre boyutunda olmasını istiyorum. Surda yaptığım dosya var yardımcı olursanız sevinirim. https://docs.google.com/spreadsheets/d/18h3cX32wsrFdrFj2dmoQVhQB6Ykg7sqn/edit?usp=drivesdk&ouid=109535252779034580446&rtpof=true&sd=true

resimekleme kodunun üstüne yada altına ekleyin. Hücreyi çift tıklanığınızda resim ekleme penceresi gelecektir.

Kodlarınız hücreye sığdır özelliği ile çalışıyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Intersect(Target, [B12, B16, B20,C12,C16,C20]) Is Nothing Then Exit Sub
    Cancel = True
    Call ResimEkle

End Sub