4000 Personel Fotoğrafını Getiren Makroyu Hızlandırma

[mertatakan3838]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

aşağıdaki makro ile 4000 personelin resimlerini çalışma sayfama 4 dk da getirtiyorum acaba bu makro revize edilerek süre dahada kısaltılabilirmi. Yardımlarınız için şimdiden teşekkürler

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

 

[Feyzullah]

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

 

[selmank]

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..

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

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

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

 

[Feyzullah]

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..

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

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

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

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

 

[mertatakan3838]

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..

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

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

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

30 sn kısaldı bu şekilde selman bey

 

[selmank]

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.

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

 

[mertatakan3838]

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.

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

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

 

[Ömer BARAN]

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?
.

 

[mertatakan3838]

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 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

 

[Ömer BARAN]

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.
.
.

 

[cakarem]

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