Kapalı Klasörden Bazı Uzantılı Dosyaları Çağırma

  • Konuyu başlatan Konuyu başlatan wolfret
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

wolfret

Kullanıcı
Katılım
23 May 2017
Mesajlar
43
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
merhaba,

aşağıdaki kodda sadece JPG olan resimleri çağırıyor..
" JPEG , PNG " türlerinide aynı kodda düzenleyip çağırmak istiyorum..genelde klasörlerde jpg oluyor aamma arada gözden kaçanlar oluyor.jpeg gibi..onları JPG olmadığı için çagıırdığımda gelmiyor.

nereye nasıl ekleme yapabilirim...


Kod:
İndirmek için giriş yapmanız gerekmektedir.
(63 satır)
 
Çözüm
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select olan satıra dosyanın var olup olmadığını yazan kodu yazarsak jpg yoksa jped o da yoksa png yi arar.

Kod:
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select olan satıra dosyanın var olup olmadığını yazan kodu yazarsak jpg yoksa jped o da yoksa png yi arar.

Kod:
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt