Eklenen resmi hücrelerin arkasında tutma!

[alperilhan]

Merhaba arkadaşlar internette ve forumda aramalarımı yaptım fakat exele eklediğim resmin hücrelerin arkasında kalmasıyla ilgili hiçbir konuya rastlamadım.
Şöyle anlatayım kimlik hazırlamak istiyorum kimlik tasarımını çeşitli programlar yardımı ile yaptım isim,soyisim , resim vb. kısımları boş bıraktım bu hazırladığım şablonu exel e ekleyip çizelgelere makrolar yardımı ile bilgileri doldurmak istiyorum ama bu resmi hücrelerin arkasına nasıl alabilirim. biraz uzun ve karışık oldu ama umarım anlatabilmişimdir...

 

[Emir Hüseyin Çoban]

Tablodan kimlik resmi üzerine mi veri alacaksınız yoksa
Kimlik resmi üzerinde doldurup tabloyamı aktaracaksınız.

.

 

[alperilhan]

tablodan kimlik üzerine olacak

 

[Emir Hüseyin Çoban]

Resmin üzerine metin kutuları ekleyip
Hücre ile bağlantı kurarak üzerine yazdırabilirsin.

Metin kutusunu seçip >
Formül çubuğunda = yapıp verip almak istediğiniz hücreyi seçin.

.

 

[alperilhan]

öncelikle bu kadar hızlı cevap verdiğiniz için çok teşekkür ederim. Sorun şu ki hazırlanacak kimlik sayısı çok fazla (bin adetten bahsediyorum) ve her eklenen resme metin kutusu açıp kod eklemek epey zaman alacak bir iş tabi farklı bir yolu daha yoksa çözümüm bu olacaktır.

 

[tahsinanarat]

Sn.alperilhan bu kutucuklar saadece tek bir kimlik için bir defaya mahsus ayarlayacaksınız, daha sonra bilgileri değiştirerek kullanacaksınız. (tc nosuna veya ad soyada göre)

 

[alperilhan]

Bu linke örnek dosya ve resim yükledim.
şunu yapmak istiyorum sayfa 2 de B2 ye gelen isimin resmi Sayfa 1 de resim bölümüne gelsin yardımcı olursanız çok sevinirim.


http://www.dosya.tc/server34/esgIWA/kiimlikhaz_rlama.rar.html

 

[Emir Hüseyin Çoban]

. . .

Resimler için metin kutusu yerine Image1 nesnesi kullanmalısınız.

Dosyanız ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/i4x-3I10adXyR

. . .

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[alperilhan]

ekteki dosyayı indiremiyorum altın üye olmadığım için.

 

[muygun]

Alternatif link:

[link=http://www.dosyayukleyin.com/do.php?id=4524]alperilhan-kimlik deneme.rar[/link]

 

[weIIet]

. . .

Resimler için metin kutusu yerine Image1 nesnesi kullanmalısınız.

Dosyanız ektedir.




. . .

Peki hemen sağındakine nasıl ekleniyor?
yada bir altındakine ben bulamadım?

 

[Emir Hüseyin Çoban]

Peki hemen sağındakine nasıl ekleniyor?
yada bir altındakine ben bulamadım?

. . .

Tasarım modundayken kopyala-yapıştır yapabilirsiniz.

Ekran Görüntüsü (GİF)

. . .

 

[weIIet]

buradan o işi otomatik olarak yapamayacağımızı mı anlamalıyım?

 

[alperilhan]

Hüseyin Çoban çok teşekkürler son bir soru daha bu resim hücrelerini çoğalttık fakat ben hepsine ayrı resimler gelmesini istiyorum mesela 2. resme sayfa 2 b3 te yazan isme göre 3. resme sayfa2 b4 te yazan isme göre resim gelmesini istiyorum bunu nasıl yapabilirim saatlerdir kurcalıyorum çözemedim.

 

[Emir Hüseyin Çoban]

Hüseyin Çoban çok teşekkürler son bir soru daha bu resim hücrelerini çoğalttık fakat ben hepsine ayrı resimler gelmesini istiyorum mesela 2. resme sayfa 2 b3 te yazan isme göre 3. resme sayfa2 b4 te yazan isme göre resim gelmesini istiyorum bunu nasıl yapabilirim saatlerdir kurcalıyorum çözemedim.

. . .

Döngü kurarak yapabilirsiniz.

13 nolu mesajdaki gibi Image nesnesini çoğaltın.
Sayfa2 B2 hücresinden aşağıya doğru isimler yazın.

Aşağıdaki kodları çalıştırın.

Sub kod()
    On Error Resume Next
    Dim S2 As Worksheet
    Set S2 = Sheets("Sayfa2")
    
    
    For i = 2 To 7
        If ActiveSheet.OLEObjects("Image" & i - 1).Name <> "" Then
            
            yol = ThisWorkbook.Path & "\resimler\"
            resimismi = Sheets("Sayfa2").Cells(i, "B") & ".jpg"
            
            If Dir(yol & resimismi) = "" Then
                ActiveSheet.OLEObjects("Image" & i - 1).Object.Picture = LoadPicture(yol & "ResimYok.jpg")
            Else
                
                ActiveSheet.OLEObjects("Image" & i - 1).Object.Picture = LoadPicture(yol & resimismi)
                Image1.PictureSizeMode = fmPictureSizeModeStretch
            End If
            
        End If
    Next i
    
End Sub

. . .

 

[alperilhan]

Sana Program yazdırdım resmen burda şu anda eğer hücreleri ben doğru sıralarsam hiçbir sıkıntı yok. Gayet güzel çalışıyor birde senden ,gelen bütün resimlerin hepsini nasıl aynı boyutta yapacağımı sorsam beni banlamazsın umarım hepsi açtığım hücrenin içine sığsın istiyorum.