otomatik resim eklemek

[woLwox]

Arkadaşlar Benzer sorular sorulmuş ama aradığımı bulamadım..

Benim elimde bir öğrenci listesi var ve bu öğrencilere ait 2A klasörü içinde bu öğrencilerin vesikalık resimleri

data.xls ve 2A resim klasörü


şimdi data.xls de yer alan öğrenci no Yazan dosyada öğrencilerin no, ad soyad , adres , gibi bilgileri sütünlarda yaziyor

ben bu sütünun sonuna öğrencinin resminide eklemek istiyorum

ancak No : yazan sütünda herhangi bir öğrenci nosunu değiştirirsem o öğrenci bilgilerinin ve o öğrencinin resminin otomatik olarak değişmesini istiyorum ??

bunu yapmamda bana yardım edecek biri olursa bu ramazanda bol bol dualarımı almış olucak şimdiden teşekkürler..
cvp yazan olursa anlamadıgı yer hemen cvp yazarım

 

[mehmett]

Aşağıdaki sayfada Sn Yurttas tarafından üç farklı yöntem gösterilmiş, inceleyin hangisi işinizi görürse kullanırsınız;

http://www.excel.web.tr/showthread.php?t=22790&highlight=resim

 

[woLwox]

bunlar benim aradığım değil onları inceledim..

benim amacım öğrencileri tek tek seçmek değil tüm listenin son sütünunda öğrenci resimleri otomatik bir klasörden çağrılıp yerleşicek..
ve herhangi bir satırdaki öğrenci nosunu değiştirip enter yaptıgımda yen öğrenci kimse onun bilgileri ve resmi gelicek

bu uygulamayı 1-2 resim ile örnek yapıp gönderebilicek biri olursa sevinirim.. şimdiden çok teşekkürler

Bir öğrenci listesi düşünelim mesela

sıraNo OkulNo İsim Adres Tel FOTO


burada hersıranın sonunda öğrenci fotosu otomatik gelicek
okul nolarından birini başka öğrenci nosu yapıp enterlarsak o öğrenci bilgi ve fotosu otomatik gelicek..ben foto hariç gerisi yaptım ama fotoyu klasörlerden çağırıp otomatik ekleyemiyorum.

 

[Seyit Tiken]

İşinize yarar mı yaramaz mı? bilmiyorum. Farklı bir yöntemle yapılmış. Dosya örnek niteliğindedir. A1 hücresine Veri Doğrulama değerlerini girerek sonucunu gözlemleyiniz.

 

[Merhum İdris SERDAR]

bunlar benim aradığım değil onları inceledim..

benim amacım öğrencileri tek tek seçmek değil tüm listenin son sütünunda öğrenci resimleri otomatik bir klasörden çağrılıp yerleşicek..
ve herhangi bir satırdaki öğrenci nosunu değiştirip enter yaptıgımda yen öğrenci kimse onun bilgileri ve resmi gelicek

bu uygulamayı 1-2 resim ile örnek yapıp gönderebilicek biri olursa sevinirim.. şimdiden çok teşekkürler

Bir öğrenci listesi düşünelim mesela

sıraNo OkulNo İsim Adres Tel FOTO


burada hersıranın sonunda öğrenci fotosu otomatik gelicek
okul nolarından birini başka öğrenci nosu yapıp enterlarsak o öğrenci bilgi ve fotosu otomatik gelicek..ben foto hariç gerisi yaptım ama fotoyu klasörlerden çağırıp otomatik ekleyemiyorum.

Sayın Mehmett'in size verdiği linkte yer alan örneklerden birisi sizin probleminizin çözümü için kullanılması mümkün.

Nasıl mı?

O zaman ekteki örneği inceleyin.

Resimler C:\'de olması gerekir. Siz bunu kendinize göre ayarlayın.

Not: İsim ve diğer hususlara girmedim. Gerekirse onlar da getirilebilir.

.

 

[woLwox]

Aradığım şey bu değil arkadaşlar ama yinede emeğiniz için teşekkürler..

benim amacım her satırdaki ilgili kişiye bir klasörde var olan resimleri sırasıyla satırlara yerleştirmek..

sıra |no |adsoyad |adres| resim
1 3 mehmet ist XXX

XXX olan kısımı resim klasöründen resimler öğrencinin nosuna göre otomatik yerleşicek..

sitede buna benzer bir uygulama bulamadım.. genelde hep excele monte edilmiş.. yani ben klasördeki resmi değiştirdiğimde ( o kişinin resmide değişecek )

no kısmına 5 yazınca mesela "ali" gelicek "adresi" ve "resmi" gelicek tam olarak istediğim bu ?,

ama resimler bir klasörden çağırılıcak..

Lütfen bilgisi veya elinde örneği olan varsa yardım edinn..

 

[woLwox]

Sayın Mehmett'in size verdiği linkte yer alan örneklerden birisi sizin probleminizin çözümü için kullanılması mümkün.

Nasıl mı?

O zaman ekteki örneği inceleyin.

Resimler C:\'de olması gerekir. Siz bunu kendinize göre ayarlayın.

.

Pardon sizin mesajınız ben mesaj yazarken gelmiş aradığım şey sizin yaptıgınıza benziyor.. ama bişey daha sormak istiyorum.. peki ben bu resimleri yerini istediğim klasöre nasıl ayarlarım.. yanii 3a sınıfının vesikalık resimleri 4a sınıfının vesikalık resimleri gibi..hepsi kendi klasöründe olabilir mi?

 

[Merhum İdris SERDAR]

Aradığım şey bu değil arkadaşlar ama yinede emeğiniz için teşekkürler..

benim amacım her satırdaki ilgili kişiye bir klasörde var olan resimleri sırasıyla satırlara yerleştirmek..

sıra |no |adsoyad |adres| resim
1 3 mehmet ist XXX

XXX olan kısımı resim klasöründen resimler öğrencinin nosuna göre otomatik yerleşicek..

sitede buna benzer bir uygulama bulamadım.. genelde hep excele monte edilmiş.. yani ben klasördeki resmi değiştirdiğimde ( o kişinin resmide değişecek )

no kısmına 5 yazınca mesela "ali" gelicek "adresi" ve "resmi" gelicek tam olarak istediğim bu ?,

ama resimler bir klasörden çağırılıcak..

Lütfen bilgisi veya elinde örneği olan varsa yardım edinn..

Yukarıda eklediğim örnek istediğinizi yapıyor. Yalnız kendinize uyarlamanız gerekir.

Bir zahmet edip, bir örnek eklerseniz, uygun olur kanısındayım. Fazla uğraşmamış oluruz.

..

.

 

[woLwox]

ekledim.. bir bakarmısınız.. son kısımdaki dosya uzantılarının oldugu yerde çıkmasını istiyorum resimlerin. cvbınızı bekliyorum

 

[tahsinanarat]

Eklediğiniz dosyayı ben göremedim?

 

[woLwox]

sayın yurttas : Yardımızı bekliyorum..
tabi diğer arkadaşlardan elinde benzer uygulama olan varsa onlarıda alabilirim..

 

[Merhum İdris SERDAR]

Yeni bakabildim. Aceleyle yaptım. Takıldığınız bir şey olursa tekrar sorun.

Kodları da inceleyin.

Şimdi Forumda olmayacağım.



.

 

[woLwox]

anlayamadıgım yerler var..
mesela resimin altındaki formülü bir alt satılara kopyalıyorum
daha sonra ilgili resimleri yandaki kutucuğa yaziyorum ve yazdıgım yere resimleride bırakıyorum
ama sadece bir alt sütünda sadece c:\babareis.gif gibi bir ibare çıkıyor ama resim gelmiyor
belirtilen yerde babareis.gif mevcut formülde kopyalanmış başka yerdeki formülleride mi kopyalamam gerekiyor ??

bu olayı coğaltamadım bir türlü:

bir kişi daha eklerken yapmam gekenleri belirtirseniz çok sevinirim bir türlü 1 kişi daha ekleyemedim

 

[Merhum İdris SERDAR]

anlayamadıgım yerler var..
mesela resimin altındaki formülü bir alt satılara kopyalıyorum
daha sonra ilgili resimleri yandaki kutucuğa yaziyorum ve yazdıgım yere resimleride bırakıyorum
ama sadece bir alt sütünda sadece c:\babareis.gif gibi bir ibare çıkıyor ama resim gelmiyor
belirtilen yerde babareis.gif mevcut formülde kopyalanmış başka yerdeki formülleride mi kopyalamam gerekiyor ??

bu olayı coğaltamadım bir türlü:

bir kişi daha eklerken yapmam gekenleri belirtirseniz çok sevinirim bir türlü 1 kişi daha ekleyemedim

Tekniğini anlatmaya çalışacağım.

1. Temel olan husus Image nesnesine resim yüklemektir.

2. Önce Image nesnesi nasıl oluşturulur. Ona bakalım. Ya eklediğim dosyada ALT+F11 tuşlarına aynı anda basılarak, Kod bölümünde Menüde yer alan Design Mode (gönye,cetvel, kalem) resmine tıkladıktan sonra Image nesnelerinin olduğu sayfaya gelinerek kopyalayarak bunlar çoğaltılır. Yada View/Toolbars/Control Toolbox'tan Image (dağ,güneş) olan şekil tıklandıktan sonra sayfanın istenilen yerlerine, istenildiği kadar bu Image nesneleri yerleştilir. Her Image nesnesinin Image1, Image2,... gibi oluşur.

3. İlgili Sayfanın kod bölümüne (sizin dosyada Sayfa6(2A)) aşağıdaki kodları yazmanız gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)

Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(['2A'!CD2])

Image2.PictureSizeMode = fmPictureSizeModeZoom
Image2.Picture = LoadPicture(['2A'!CD3])

'AŞAĞIDAKİ KODLARI RESİMLER KADAR ÇOĞALTIN.

Image3.PictureSizeMode = fmPictureSizeModeZoom
Image3.Picture = LoadPicture(['2A'!CD4])

Image4.PictureSizeMode = fmPictureSizeModeZoom
Image4.Picture = LoadPicture(['2A'!CD5])

Image5.PictureSizeMode = fmPictureSizeModeZoom
Image5.Picture = LoadPicture(['2A'!CD6])
...
...
...
...
End Sub

3. Dosyanızda CF2'den başlamak üzere Okul No'ları ve CG2''den başlamak üzere ilgili resimlerin bulunduğu yolu yazın.

4.CD2 hücresine =VLOOKUP(B2;$CF$2:$CH$1000;2;0) formülünü yazıp aşağıya kopyalayın.

5. Image nesnelerin yerlerini ve satır aralıklarını ayarladıktan sonra Kod bölümünde Menüde yer alan Design Mode (gönye,cetvel, kalem) resmine bir kez daha tıklayın.

Umarım yapabilirsiniz artık.

.

 

[woLwox]

peki CD2 Hücrelerinde Olan formul yani =DÜŞEYARA(B2;$CF$2:$CH$6;2;0) bu formüle ne olucak ?? yani bunu silip sizin verdiğinizimi yazayım.. o zaman benim uygulamamda düşeyara çalışıcakmı ?

 

[woLwox]

Yok yapamadım olmadı resimler karışık değişiyor.. adım adım sölediklerini yaptım ama olmuyor.. bikaçtane değişti sonra benim değiştirdiğim sütunlardan birine 150 yazınca 147 deki resim değişyor

ben 151. numaraya kadar tanımladım resimleri ama olmadı yine #AD? böyle bi hata veriyo yada debug yapıp image1 satırında kalıyor

yukarida anlatıgınız 4. maddeyi anlayamadım sizin uygulamalarınızda düşeyara var ama yukarida Vlook ile başlayan komutu vermişsiniz.. burasini biraz daha anlatırmısınız rica etsem.. çok ugraştırdım farkındayım ama benim için önemli bir uygulama..teşekkürler

 

[Merhum İdris SERDAR]

Yukarıda belirttiğim adımları izlerseniz yapabilirsiniz.

VLOOKUP=DÜŞEYARA


..

 

[woLwox]

siz yazmadan önce 5. resmi bende yaptım bu sefer sanki 5 ten sonra olmuyormuş gibi bişey 6.7. .... eklemiyor aynı yoldan devam ediyorum maximum 5 gibi bişey olamaz herhalde

 

[Merhum İdris SERDAR]

Image5.PictureSizeMode = fmPictureSizeModeZoom
Image5.Picture = LoadPicture(['2A'!CD6])
...

Bu kodları çoğaltmanız gerekir. (yukarıdaki 3. adımda söyledim.)

Image6.PictureSizeMode = fmPictureSizeModeZoom
Image6.Picture = LoadPicture(['2A'!CD7])
Image7.PictureSizeMode = fmPictureSizeModeZoom
Image7.Picture = LoadPicture(['2A'!CD8])
....
...
...

gibi...

 

[woLwox]

Teşekkür ederim.. herşey için ...sonunda oldu.. saolun..Çok teşekkürler.