[ÇÖZÜLDÜ] Belirli Bir Alandaki Resmin Tanımını Hücreye Yazdır

[baydeniro]

Merhaba arkadaşlar. "B1 : D4" alanı içindeki bir resmin tanımını A1 hücresine yazdırmak mümkün mü ?

 

[baydeniro]

Bu konuda bir fikri olan var mı arkadaşlar ?

 

[Ferhat Pazarçevirdi]

"Resmin tanımı" derken ?

 

[baydeniro]

Sayın Ferhat Pazarçevirdi ilginize çok teşekkür ederim. Bildiğiniz gibi bir excel sayfasına her hangi bir kaynaktan resim/picture kopyaladığınıza o forma birisim vermektedir. Örneğin 1. sayfanın A14 arasınındaki bölümünü resim olarak 2. sayfaya kopyaladığımızda buna forma Resim1 veya Picture1 gibi bir isim vermektedir. Aynı alandan aynı yere bir kaç defa resim kopyalandığında uzantı numarası değişmektedir. Yani Resim1 veya Picture2 olmaktadır.

Bu tanımı yani Resim2 tanımını bulmak ve hücreye yazdırmak mümkün mü ?

Teşekkür ederim.

 

[Tarkan VURAL]

Resimlere kendiniz de Ad kutusundan isim verebilirsiniz, form üzerine yüklerken bu addan da çağırabilirsiniz. Mesela personel için ise tc nodan resme isim verip form üzerinde tc no kısmınızdaki numara ile karşılaştırıp eşitlik durumunda image nesnesine ekletebilirsiniz.
Bilginiz olsun.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kod, belirli bir alanda bulunan resim(ler)in isimlerini mesaj kutusunda göstermektedir.

Sub Belirli_Bir_Alandaki_Resmin_Ismini_Almak()
    Dim oRes As Picture
    Dim rngBelirlenenAlan As Range
    
[COLOR=darkgreen]    'Siz bu alanı istediğiniz bir aralığa ayarlayınız.[/COLOR]
    Set rngBelirlenenAlan = Range("A1:I30")
    
    For Each oRes In ActiveSheet.Pictures
        If Not Intersect(oRes.TopLeftCell, rngBelirlenenAlan) Is Nothing Then
[COLOR=darkgreen]            'Ben sadece mesaj kutusunda ismini gösterdim
            'Siz, yapmak istediğiniz işlemleri(kodları) buraya yazınız[/COLOR]
            MsgBox oRes.Name
        End If
    Next
    
    Set rngBelirlenenAlan = Nothing
    
End Sub

 

[baydeniro]

Sayın Ferhat Pazarçevirdi yardımlarınız için çok teşekkür ederim.