• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Klasörden resim çağırma...

S

serkan_sdl

Katılım
18 Ekim 2008
Mesajlar
48
Excel Vers. ve Dili
Microsoft Office Excel 2010
Arkadaşlar ekte bir üretim reçetem var. Bu dosyanın A5 hücresindeki (19000) değere göre "\\Satis\LOBİ C\Inetpub\wwwroot\resimler" klasöründen resimleri çağırmak istiyorum. Ancak Üretim reçetesinde 3 ayrı bölümde resim alanı mevcut. Yardımlarınızı bekliyorum...
 

Ekli dosyalar

Dosyanıza 3 adet image nesnesi ekledim. Resimler bu nesnelere çağırılmaktadır.
 

Ekli dosyalar

Ellerinize sağlık tam istediğim gibi olmuş. Yalnız en üstteki resimle altta ki iki resmin boyutları farklı. Ben resimlerin boyutlarını nasıl değiştirebilirim?
 
serkan_sdl' Alıntı:
Ellerinize sağlık tam istediğim gibi olmuş. Yalnız en üstteki resimle altta ki iki resmin boyutları farklı. Ben resimlerin boyutlarını nasıl değiştirebilirim?
Genişletmek için tıkla ...

Hücre boyutuna göre ayarlamıştım. Siz formun hücre boyutlarını ayarlayıp tekrar ekleyin ben gerekli düzeltmeyi yaparım.
 
Hata veriyor...

Levent bey merhaba...

Benim excel dosyası resim çağırırken VBA Hatası veriyor. Neden olduğu konusunda yardımcı olurmusunuz? Birde eğer mümkünse 3 resmin boyutlarıda en üstteki resmin boyutuyla aynı olsun lütfen.

Teşekkür ederim...
 
Son düzenleme:
serkan_sdl' Alıntı:
Levent bey merhaba...

Benim excel dosyası resim çağırırken VBA Hatası veriyor. Neden olduğu konusunda yardımcı olurmusunuz? Birde eğer mümkünse 3 resmin boyutlarıda en üstteki resmin boyutuyla aynı olsun lütfen.

Teşekkür ederim...
Genişletmek için tıkla ...

Levent bey, sizin makro lu çalışmanızı (üretim formu) masa üstüme kaydettiğimde resimler gelmiyor, neden olabilir acaba?
 
Levent bey merhaba...

Benim hata veren excel dosyasını bir türlü aktaramadım. Resimleri çağırırken hata veriyor. Hatayı düzeltirseniz çok sevinirim. Hata hakkında bilgi verirseniz çok yararlı olacaktır.
 

Ekli dosyalar

serkan_sdl' Alıntı:
Levent bey merhaba...

Benim hata veren excel dosyasını bir türlü aktaramadım. Resimleri çağırırken hata veriyor. Hatayı düzeltirseniz çok sevinirim. Hata hakkında bilgi verirseniz çok yararlı olacaktır.
Genişletmek için tıkla ...

Bu kodu denermisiniz.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2]) Is Nothing Then Exit Sub
Sheets("emir").Image1.Picture = LoadPicture(None)
Sheets("emir").Image2.Picture = LoadPicture(None)
Sheets("emir").Image3.Picture = LoadPicture(None)
On Error GoTo 10
yol = "[URL="file://\\Satis\LOBİ"]\\Satis\LOBİ[/URL] C\Inetpub\wwwroot\resimler\"
Sheets("emir").Image1.Picture = LoadPicture(yol & [a5] & ".jpg")
Sheets("emir").Image2.Picture = LoadPicture(yol & [a5] & ".jpg")
Sheets("emir").Image3.Picture = LoadPicture(yol & [a5] & ".jpg")
10 End Sub

Not : Eğer kod çalışmazsa image nesnelerini silin ve yeniden ekleyin.çünkü bendede çalışmadı ve sildim yeniden ekleyince düzeldi.
 

Ekli dosyalar

İmage leri nasıl silebilirim?

Levent bey ilginize teşekkür ederim. Ancak ben image leri nasıl sileceğimi bilmiyorum. Bana bu konuda yardım ederseniz çok sevinirim.
 
8 nolu mesaja dozyanızı ekledim a2 hücresi değiştiği zaman kod çalışıyor.
 
Yine aynı hatayı veriyor...

Levent bey kolay gelsin...

Ekte ki dosya yine çalışmıyor "üretim formu (onarıldı)"... Önceki çalışmada vermiş olduğu hatanın aynısını veriyor. İlk önce yapmış olduğunuz çalışmayı (üretim formu) ben kendi bilgisayarımda çalıştırdım. Her hangi bir problem çıkmadı. Ancak ben dosyayı kaydedip tekrar açtığımda bu hatayı vermeye başladı... Ayarlarda bir problem olabilir mi?
 
serkan_sdl' Alıntı:
Levent bey kolay gelsin...

Ekte ki dosya yine çalışmıyor "üretim formu (onarıldı)"... Önceki çalışmada vermiş olduğu hatanın aynısını veriyor. İlk önce yapmış olduğunuz çalışmayı (üretim formu) ben kendi bilgisayarımda çalıştırdım. Her hangi bir problem çıkmadı. Ancak ben dosyayı kaydedip tekrar açtığımda bu hatayı vermeye başladı... Ayarlarda bir problem olabilir mi?
Genişletmek için tıkla ...

Merhaba karıştırdınız herhalde ben Levent Bey değilim.
8 nolu dosya bende çalışıyor
sizdede çalışması lazım belkide resimlerin bulunduğu adres yanlış olabilir.
 
Peki adresi nasıl teyit edebilirim?

Halit bey kusura bakmayın, Alışkanlık olmuş :-)

Ben bu adresi "adres çubuğuna" veya "çalıştır" a girdiğim zaman ilgili resimlere ulaşabiliyorum. Başka nasıl bir problem olabilir?
 
Video da çalışmıyor...

Halit bey kusura bakmayın zamanınızı alıyorum. Ancak video da çalışmıyor. Belki benim pc donanım anlamında yeterli olmayabilir. Kafayı yemek üzereyim..

Ne olur yardım edin!!!
 
serkan_sdl' Alıntı:
Halit bey kusura bakmayın zamanınızı alıyorum. Ancak video da çalışmıyor. Belki benim pc donanım anlamında yeterli olmayabilir. Kafayı yemek üzereyim..

Ne olur yardım edin!!!
Genişletmek için tıkla ...

Bir sıkıntı vardı şimdi çalışıyor
 
Alternatif olarak buda farklı bir uygulama
 

Ekli dosyalar

Halit bey teşekkür ederim yardımlarınız için. Şimdi excel dosyamda ilgili resimleri ekledikten sonra resimler geliyor. Ancak dosyayı kaydedip kapattıktan sonra yeniden açtığımda aynı hatayı tekrar veriyor. Bir diğer problemde resimler benim istediğim ölçülerde gelmiyor. Yani bir çanta cocuk resmi getirmek istediğimi düşünün, çocukğun ayak kısmı görünüyor. Anlayacağınız resmi orantılı bir şekilde küçüktüp ortalamıyor. Yaa üstünü ya altını görebiliyorsunuz...

Emeğiniz için çok teşekkür ederim..
 
Kod: 
.Object.PictureSizeMode = [B][COLOR=red]3[/COLOR][/B]

Bu bölümleri yani kırmızı yeri 1 veya 2 veya 3 yapıp deneyin
 
Halit bey diğer çalışmada (deneme.rar) bende çalışmadı, hata veriyor. Nasıl çözeceğim bilmiyorum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst