Klasörden Resim ActiveX Denetimi Çekme

[Rizelli3]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhabalar,

Elimde bir dosya var c:\resim\ klasörü içerisinden belirli hücrelere resim çekmesi gerekiyor ancak çalışmıyor kullanılan kod ve örnek dosya aşağıdadır.
Özet: Örnek dosyada D1 hücresindeki uzantıda bulunan resmi C3 hücresinde bulunan kutu içerisine çekmesini istiyorum.
Amaç: C3 hücresindeki kutuyu farklı sayfalarda farklı kısımlara kopyalayacağım tek seferde resimlerin tamamının değişmesi.
Şimdiden yardımlarınız için teşekkürler.

Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz Sayın @Rizelli3 .

Şöyle deneyin.

Bu kodu görmek için giriş yapmanız gerekmektedir (9 satır). Giriş Yap

 

[Rizelli3]

Merhaba, foruma hoşgeldiniz Sayın @Rizelli3 .

Şöyle deneyin.

Bu kodu görmek için giriş yapmanız gerekmektedir (9 satır). Giriş Yap

Merhabalar desteğiniz ve zaman ayırdığınız için öncelikle teşekkür ederim. verdiğiniz kodu denedim ancak "Image1" kutusu içerisine klasörden resmi çekmiyor neyi yanlış yapıyorum anlamadım.

 

[Ömer BARAN]

Resimin YOL ve uzantı dahil ADI,
koddaki yoluzanti aynı ise sorun olmaması gerekir.
Ben kendi bilgisayarımdaki bir resimi yol ve isim bilgisini kullanarak denemiştim.
Bir soruna rastlamadım.
Olmazsa D1 deki dosya adını formülle değil elle yazarak bir kez daha deneyin.
Başta, ortada, sonda BOŞLUK durumuna dikkat edersiniz.

 

[Rizelli3]

Resimin YOL ve uzantı dahil ADI,
koddaki yoluzanti aynı ise sorun olmaması gerekir.
Ben kendi bilgisayarımdaki bir resimi yol ve isim bilgisini kullanarak denemiştim.
Bir soruna rastlamadım.
Olmazsa D1 deki dosya adını formülle değil elle yazarak bir kez daha deneyin.
Başta, ortada, sonda BOŞLUK durumuna dikkat edersiniz.

Maalesef hocam D1 hücresindeki yolu elle girdim denedim sonuç yine aynı hücre içerisindeki yolu kopyalayıp bilgisayardaki klasöre yapıştırınca resim çıkıyor resim yolu ve uzantısı doğru ancak çekmiyor eğer mümkünse denediğini excel dosyasını paylaşabilir misiniz. Teşekkürler iyi forumlar dilerim.

 

[Ömer BARAN]

Bilgisayarda değilim.
Koddaki [D1].Text yerine [D1].Value yazarak deneyin.

 

[Rizelli3]

Bilgisayarda değilim.
Koddaki [D1].Text yerine [D1].Value yazarak deneyin.

Maalesef hocam denedim sonuç aynı resmi çekmiyor. Benim bilgisayar yada excel ayarı ile ilgili bir durum olabilir mi bu kodun çalışması için ekstra bir ayar yapmam gerekiyor mu. Tüm makroları etkinleştir ve Tüm denetimleri kısıtlama olmadan ve sormadan etkinleştir dışında.

 

[Rizelli3]

Bu kodu görmek için giriş yapmanız gerekmektedir (16 satır). Giriş Yap

Yukarıda ki kodu kullanarak problemi çözdüm desteğiniz için çok teşekkür ederim belki başkasının işine de yarar.

 

[Ömer BARAN]

Ben, B1'deki yol bilgisini kendi bilgisayarımdaki gibi değiştirdim ve sorunsuz sonuç alıyorum.
Dosya ekte, kodlar öcneki cevapta verdiğim gibi.

.