Veriye göre resim çekmek

[Baggwell]

Merhaba arkadaşlar,

Forumdaki konuları detaylı olarak inceledim fakat özünde istediğim sonuca bir türlü ulaşamadım.

Sizlerden bizzat yardım rica ediyorum lütfen

A sütunundaki veriye göre klasörden resmi getirmesini istiyorum.

Örneğin: A1 hücresinde Mercedes yazıyorsa, A klasöründeki Mercedes isimli resmi yanına getirmesini istiyorum.

Bana sıfırdan bir çalışma lazım çünkü;

Herhangi bir satır veya sütunu tıkladığımda, resimler kayboluyor.
Resimli dosyayı bir başkasına gönderdiğimde, resimler açılmıyor. (image bulunamadı)

Acaba excelde mi problem var diye düşünüyorum ama kullandığım Office programı lisanslı,yani sebebini bulamıyorum.

Yardımcı olursanız teşekkür ederim

 

[catalinastrap]

Merhaba,
c: altına resim isimli bir klasör oluşturup içine resimlerinizi yapıştırın
sonra vba kod kısmına

Sub aa()
On Error Resume Next
ActiveSheet.Pictures.Delete
[b1].Select
ActiveSheet.Pictures.Insert ("C:\Resim\" & [a1] & ".jpg")
ActiveSheet.Pictures.Select
Selection.Name = "a"
[b1].Select
End Sub

kodu ekleyin

 

[Baggwell]

Sayın hocam olmadı, neden resimler gelmiyor

Söylediklerinizin tamamını uyguladım ekran görüntüsünü incelerseniz sevinrim

 

[catalinastrap]

ekran görüntüsü nerede ?

 

[Baggwell]

sayfayı yenilermisiniz

 

[catalinastrap]

objeler ile alakalı bir sorun var sanırım sizde

OLE Automation
Microsoft Office 14.0 Object Library
Microsoft Excel 14.0 Object Library

References ten seçilimi bir bakın yoksa seçerek ekleyin

 

[Baggwell]

Bende 15.0 yazıyor bu şekilde seçili hocam

http://prntscr.com/38djt6

 

[Baggwell]

Resim çekmek için bir makro var elimde fakat bu sefer de şöyle bir problem oluyor.

Ek dosyayı indirdiğinizde anlayacaksınız

Bendeki ekran görüntüsü : http://prntscr.com/38dljt

Sizdeki ekran görüntüsünü paylaşırmısınız ?

 

[catalinastrap]

Olmaması için bir neden göremiyorum !
dosyanızı ekleyebilirmisiniz

 

[catalinastrap]

bu eki deneyiniz bakalım

 

[Baggwell]

Sizin gönderdiğiniz resim de bende açılmıyor, işte temel problem bu aslında.
Gönderdiğiniz dosyayı açtığınız zaman bendeki ekran görüntüsü bu şekilde hocam

http://prntscr.com/38dob7

 

[catalinastrap]

bu halini de bir deneyin

 

[Baggwell]

Makroyu çalıştırmadan önce : http://prntscr.com/38doqy

Makroyu çalıştırdıktan sonra : http://prntscr.com/38doy2

 

[catalinastrap]

o sorun değil makroyu tekrar çalıştır deyin düzeliyor bana gelen dosyada da o şekilde gözüküyordu makroyu çalıştır deyinde düzeliyor

 

[Baggwell]

Resim makro ile geldi.
Evet şimdi bu dosyayı kaydedip size göndereceğim bakalım resim sizde açılacak mı onu merak ediyorum ?

 

[Baggwell]

Ek dosyada resim sizde açılacak mı hocam

 

[catalinastrap]

sorun kafa yedirtecek cisten valla olmaması için bir sebep yok gözüküyor ama
.xlsm uzantılı son eklediğim dosyada da mı aynı sorunu veriyor bakabilirmisin ?

 

[catalinastrap]

bende açıldı resim

 

[Baggwell]

Şöyle bir durum keşfettim. Sizin gönderdiğiniz dosyayı açtığımda dikkat edin;

Eğer dosya adı C:resim klasöründeki ile eşleşiyorsa resim görünüyor.

Peki C:resim klasörü olmayan kişi bu resmi nasıl görecek ? bunu çözmemiz lazım

 

[Baggwell]

Bunun gerçekten çok büyük önemi var benim için,

Bazen 2500 yada 3000 satırlık resim çekiyorum. Karşı tarafa mail gönderdiğimde ise resimleri göremiyor :S