• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Eklenen resmi hücrelerin arkasında tutma!

A

alperilhan

Katılım
28 Ağustos 2014
Mesajlar
13
Excel Vers. ve Dili
2010 tr
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...
 
Tablodan kimlik resmi üzerine mi veri alacaksınız yoksa
Kimlik resmi üzerinde doldurup tabloyamı aktaracaksınız.

.
 
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.

.
 
ö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.
 
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)
 
Alternatif link:

[link=http://www.dosyayukleyin.com/do.php?id=4524]alperilhan-kimlik deneme.rar[/link]
 
weIIet' Alıntı:
Peki hemen sağındakine nasıl ekleniyor?
yada bir altındakine ben bulamadım?
Genişletmek için tıkla ...
. . .

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

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

2vVd20.gif


. . .
 
buradan o işi otomatik olarak yapamayacağımızı mı anlamalıyım?
 
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.
 
alperilhan' Alıntı:
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.
Genişletmek için tıkla ...
. . .

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.

Kod: 
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

. . .
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst