Hücreye resim çağırma

[chuck50]

İyi günler;

Günlerdir uğraşıyorum işin içinden çıkamadım. Forumlarda yazan her türlü formülü denedim fakat bir türlü olmadı. Makro kodlarını yazdım olmadı. Derdimi kısaca anlatayım:

Kişi Bilgilerini içeren bir excel sayfası oluşturdum ve bir de veri tabanı olan çalışma kağıdı var. Kişilere verdiğim numaralar girildiğinde o kişiye ait tüm bilgiler gelmekte fakat ben resim gelmesini de istiyorum. Ne yaptıysam olmadı. Biliyorum şimdi dosyayı isteyeceksiniz ama yükleyemem çünkü kişilere ait çok özel bilgiler mevcut. Bu şekilde bana yardımcı olursanız çok sevineceğim!!!

 

[mest3651]

dosyayı gönderirmisin

 

[mest3651]

kişisel bilgileri sil sadece boş hücereler kalsın.

 

[chuck50]

Ekteki dosya buyurun. Şimdiden ilginize teşekkür ediyorum.

 

[mest3651]

Resim getirme

kabataslak bişey yapmaya çalıştım. kod bölümünde resim yolunu kendine göre değişmelisin. bi dene.

 

[chuck50]

denedim ancak olmuyor resim hiç gelmiyor. Resim yolunu da değiştirdim. Acaba Excel 2007 kullanmamdan olabilir mi? denemediğim kod kalmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim resim As Shape, resimyolu As String
Dim evn As Object, klasor As Object, res As Object
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path & "\Resimler")
For Each resim In ActiveSheet.Shapes
resim.Delete
Next
For Each res In klasor.Files
If res.Name = Range("b3").Value & ".jpg" Then
resimyolu = ThisWorkbook.Path & "\Resimler\" & res.Name
Range("n2").Select
ActiveSheet.Pictures.Insert(resimyolu).Select
With Selection.ShapeRange
.ScaleWidth 1.2, 0, 0
.ScaleHeight 1.01, 0, 0
End With
End If
Next res
Range("b4").Select
Set evn = Nothing
Set klasor = Nothing
Set res = Nothing
Set resim = Nothing
resimyolu = vbNullString
End Sub



Sadece bu kodu kullanarak resim getirebiliyorum o da sabit bir yere geliyor ne kadar hedef hücreyi değiştirsemde. Ne zormuş bu iş!!!!

 

[mest3651]

2007 hiç kullanmadım. yaptığım kadarıyla tam resmin oraya geliyor. bende o çizelgeye benzer bir çizelge kullanıyorum işim gereiği.

 

[chuck50]

o zaman 2007 yüzünden olmuyor bi de 2003 kurayım deneyim bakalım olacak mı?

 

[halit3]

Alternatif olarak bunu denermisiniz.

 

[tahsinanarat]

Altarnatif olsun

Gerçek dosyanızın düzenini bilmediğimden gönderdiğiniz örnek üzerinden ekteki dosyayı uyarladım. Umarım işinize yarar Not. kodlar evvelce bu siteden temin edilmiştir.

 

[chuck50]

herkese teşekkür ediyorum sonunda çözüldü mesele 2007 kullandığım içinmiş. İlginize teşekkür ediyorum.

 

[chuck50]

herkese ilgisi için teşekkür ediyorum. mesele excel 2007 kullandığım içinmiş. dünden beri canım çıktı. şimdi sorun çözüldü.

 

[Eudorabeta]

Aynı sorun bendede var ama bir türlü halledemedimm

 

[İhsan Tank]

Aynı sorun bendede var ama bir türlü halledemedimm

merhaba
bence işinizi bu link görür

 

[eliffoz]

Merhabalar,
Bu örnek benimde çok işime yarıyor fakat hücrelere alt alta kelimeler yazıp, o kelimeye tıklanarak resim çağırılabiliyor mu? Ben 2010 sürümü kullanıyorum. Sanıyorum bu da etkiliyor.

 

[hamitcan]

SelectionChange olayı dediğiniz yapılabilir. 14 nolu mesajdaki linki inceleyin, konu içinde bu tip örnekler olmalı.

 

[eliffoz]

Ona baktım, yapmayı denedim, başarılı olamadım .. Ya da anlamadığım için uygulayamadım.

 

[hamitcan]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/f48/resim-ekleme-hucre-bilgileri-ile-lutfen-yardym-t105093.html

 

[eliffoz]

Süperrr işte tam istediğim gibi. Çok teşekkür ederim.

 

[eliffoz]

Son bir şey daha soracağım. Resmin yan tarafta görünmesini nasıl sağlayacağım? Hemen altında gözükmesini istemiyorum.