Makro Revize - Hücreye Klasörden Resim

Bana göre daha da kısalmaz gibi görünüyor. Üstatlar belki farklı çözüm bulabilir.

4000 tane resmim olmadığı için deneyemedim ama iyileşme olursa kaç saniye olduğunu bildirirseniz sevinirim.

1. Öncelikle döngünün içinde sürekli filesystemobject oluşturmaktan vazgeçin.. Bunu 1 kez oluşturup, 4000 kez kullanabilirsiniz. Kodun içinde 2 yerde var. İkisinide aşağıdaki gibi fso ile değiştirmeniz gerekiyor..


2. Oluşturduğunuz resmi select ile seçmeyin. Bunuda 2 farklı yerde yapıyorsunuz. İkisinide örnekteki gibi düzeltin.

Selman' Alıntı:

4000 tane resmim olmadığı için deneyemedim ama iyileşme olursa kaç saniye olduğunu bildirirseniz sevinirim.

1. Öncelikle döngünün içinde sürekli filesystemobject oluşturmaktan vazgeçin.. Bunu 1 kez oluşturup, 4000 kez kullanabilirsiniz. Kodun içinde 2 yerde var. İkisinide aşağıdaki gibi fso ile değiştirmeniz gerekiyor..

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

2. Oluşturduğunuz resmi select ile seçmeyin. Bunuda 2 farklı yerde yapıyorsunuz. İkisinide örnekteki gibi düzeltin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Genişletmek için tıklayın ...

Göz önünde görünen kodlar hiç fark etmemişim. Demek ki bakmak ile görmek arasındaki fark.

Selman' Alıntı:

4000 tane resmim olmadığı için deneyemedim ama iyileşme olursa kaç saniye olduğunu bildirirseniz sevinirim.

1. Öncelikle döngünün içinde sürekli filesystemobject oluşturmaktan vazgeçin.. Bunu 1 kez oluşturup, 4000 kez kullanabilirsiniz. Kodun içinde 2 yerde var. İkisinide aşağıdaki gibi fso ile değiştirmeniz gerekiyor..

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(7 satır)

2. Oluşturduğunuz resmi select ile seçmeyin. Bunuda 2 farklı yerde yapıyorsunuz. İkisinide örnekteki gibi düzeltin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Genişletmek için tıklayın ...

30 sn kısaldı bu şekilde selman bey

Aklıma 1 şey daha geldi..
Şimdi sizin fotolarınız formatı genellikle jpg ise aşağıdaki sıralamada jpg yukarda olsun. Adedi çok olan uzantı yukarda olsun. Yani 2000 jpg, 1500 gif, 500 bmp varsa aşağıdaki sıralamada jpg, gif, bmp şeklinde değiştirilsin. Belki 1-2 saniyede buradan yakalarsınız.. Daha da geliştirmek istiyorsanız büyük boyutlu resimleri tespit edip bunları küçültmeyi deneyin. Sanırım bugünlük başkada söyleyebileceğim bir şey yok.

Selman' Alıntı:

Aklıma 1 şey daha geldi..
Şimdi sizin fotolarınız formatı genellikle jpg ise aşağıdaki sıralamada jpg yukarda olsun. Adedi çok olan uzantı yukarda olsun. Yani 2000 jpg, 1500 gif, 500 bmp varsa aşağıdaki sıralamada jpg, gif, bmp şeklinde değiştirilsin. Belki 1-2 saniyede buradan yakalarsınız.. Daha da geliştirmek istiyorsanız büyük boyutlu resimleri tespit edip bunları küçültmeyi deneyin. Sanırım bugünlük başkada söyleyebileceğim bir şey yok.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

Genişletmek için tıklayın ...

teşekkürler selman bey resimlerin hepsi jpg uzantılı yardımlarınız için çok teşekkür ederim.

Merhaba.

Bir de resimleri, hücre açıklaması olarak ekleme yöntemi denense mi acaba?
Açıklamaları yazdırma seçeneğini de "sayfada göründüğü gibi" şeklinde ayarlamalı o zaman.

Hız açısından fark eder mi ne dersiniz?
.

Ömer BARAN' Alıntı:

Merhaba.

Bir de resimleri, hücre açıklaması olarak ekleme yöntemi denense mi acaba?
Açıklamaları yazdırma seçeneğini de "sayfada göründüğü gibi" şeklinde ayarlamalı o zaman.

Hız açısından fark eder mi ne dersiniz?
.

Genişletmek için tıklayın ...

Ömer hocam bazen listeleri resimli olarak çıktı almam gerekiyor o yüzden ihtiyaç duyduğum zamanlarda getiriyorum aksi halde listemde resim yeri boş çünki çalışmamı kasıyor o sekil

Sayın @mertatakan_3838 .

Hücreye resim ekleme ile hücre açıklamasına resim ekleme seçeneklerinin, dosya boyutuna etkisine bakmak lazım.
Kaldı ki, tıpkı hücredeki resimleri temizleyip/eklemek gibi hücre açıklamalarını da temizleyip/eklemek mümkün.

Hücre açıklamasını da hücre boyutlarına göre boyutlandırmak, konumlandırmak yapılabilir şeyler.
Ayrıca; hücre açıklamalarının yazdırılması/yazdırılmaması tercihe bağlı, yazdırılacaksa da sayfada konumlandırıldığı şekilde yazdırılması mümkün.

Tercih sizin elbette ama bence; bir örnek belge (gerçek belgenizle aynı yapıda) ve birkaç tane de örnek resim ekleyerek denemeye değer.
Böylece hem resim ekleme/silme hızları, hem de dosya boyutuna etkileri konusu da netleşmiş olur.
.
.

Sayın @mertatakan_3838
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.