Userforma Resim Ekleme

Katılım
8 Haziran 2007
Mesajlar
7
Excel Vers. ve Dili
Office 2000 Tr
Selam arkadaşlar.

Personele ait nüfus ve diğer tüm bilgilerin bulunduğu bir
kayıt programı yapmak istiyorum. Daha iyi makrolar var ama,
bu yaptığım makro, çıktı alınacak sayfayı sıfırdan kendi oluşturuyor,
satır, sütun ayarları, içerikleri bozulmuyor.

Resim ekleme aşamasını geçemedim.
2 gün, resim ekleme ilgili tüm makroları inceledim, uyarlayamadım.
Yapmak istediğim şu:

"Veri" sayfasındaki resim adları, personelin T.C. Kimlik noları ile aynı.

Yani, T.C. Kimlik no: 1111 ise, aynı şahsın resminin adı da 1111.


Diğer bilgiler ile birlikte resmi de hem userforma hem de "Yaz" sayfasına gelsin istiyorum.

Ekteki dosyada iki kişi için örnek var.

Resim ekleme olayından sonra makroyu daha da geliştirmek istiyorum.

Gelen formda, yukarıdan "Adı-Soyadı" seçilip, "Bul" tıklanıyor.
Sonra da "Sayfaya At" tıklanıyor.

Makroda "Yaz" sayfasına atılan bilgiler, Ln262 den itibaren başlıyor.
Biçimlendirme yüzünden makro uzun oldu, bulmak zor oluyor.

Makro yazan arkadaşlar, biz acemiler için, hangi satırın ne iş yaptığını yazıverseler, deneme-yanılma sonuç alabiliriz aslında. Kodlara öylece bakıyoruz.

Şimdiden teşekkürler.
Erdal Demir
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Günaydın,

Resim userform'a gelecek ise ve resimlerin bulundugu C:\ diskin altına resim isimli bir klasor açınız.

Arama yaptıgınız kodların altına aşagıdaki kodu yazınız.

Dosya türü *.jpg olarak düşünüldü.
Kod:
Resim.Picture = LoadPicture("c:\resim\" & TC_Kimlik.Value & ".jpg")
 
Katılım
8 Haziran 2007
Mesajlar
7
Excel Vers. ve Dili
Office 2000 Tr
Teşekkürler. Ama, dosyayı mail ile göndermem gerekebilecek. O yüzden gönderdiğim örnekteki gibi, Excel içindeki resimleri kullanmam gerekiyor.

O da nasıl yapılıyor bilmiyorum. Resimlerin userforma gelmesi şart değil, sadece "Yaz" sayfasına, diğer bilgilerle birlikte gelse de olur.
 
Katılım
14 Ağustos 2008
Mesajlar
82
Excel Vers. ve Dili
2003 - english
Günaydın,

Resim userform'a gelecek ise ve resimlerin bulundugu C:\ diskin altına resim isimli bir klasor açınız.

Arama yaptıgınız kodların altına aşagıdaki kodu yazınız.

Dosya türü *.jpg olarak düşünüldü.
Kod:
Resim.Picture = LoadPicture("c:\resim\" & TC_Kimlik.Value & ".jpg")
Benimde benzer birşeye ihtiyacım var ama örneğin tckimlik numarasının tamamı değilde son 8 karakteri resimle aynı isme sahip, bunun için ne yapabilirim ?
 
Katılım
30 Eylül 2007
Mesajlar
1
Excel Vers. ve Dili
türkçe
user formda resim ekleme sorunu sicil proğramı

SELAMÜN ALEYKÜM ARKADAŞIM BEN İLKDEFA SİZE BİR DOSYA GÖNDERİYORUM HENÜZ BU İŞDE YENİYİM SİZİN RESİMLE İLGİLİ ÇALIŞMANIZI İNCELEDİM BENİM GÖNDERECEĞİM USER FORM ÇALIŞMASINI İNCELEYEREK PERSONEL RESMİNİ NASIL USER FORMA UYGULAYA BİLİRİM İSME GÖRE
YARDIMLARINIZ İÇİN ŞİMDİDEN ALLAH RAZI OLSUN
hayat_yesilyurt@hotmail.com
hayatiyesilyurt@gmail.com
 
Üst