Klasördeki Tüm Resimleri Ekleme ve Otomatik Boyutlandırma

Bu dosya, seçilen bir klasördeki resimleri Sayfa1 üzerinde A sütunundaki hücrelere ekler. Her satırın yüksekliği ilgili resme göre ayarlanır, resmin dosya adı, boyutu ve tarihi yan sütunlara yazılır. Ürün katalogu, fotoğraf envanteri ya da klasör içeriğini görsel olarak listelemek için kullanılabilir.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makro kodu 32 bit Excel için yazılmıştır; 64 bit Excel kullanıyorsanız dosya hata verecektir.

Dosyanın içeriği​

• Sayfa1: Resimlerin ve bilgilerinin listelendiği tek sayfa. A sütununa resimler, B sütununa dosya adı, C sütununa dosya boyutu (Kb), D sütununa dosyanın tarihi yazılır. Liste 2. satırdan başlar.

Dosyada hücre formülü bulunmaz; tüm işlemler makro ile yapılır.

Makrolar​

• LoadPictureFiles: Klasör seçme penceresini açar. Seçilen klasörde bmp, gif, jpg, jpeg, tif, wmf ve png uzantılı dosyaları sırayla arar, her resmi A sütununa ekler ve B:D sütunlarına bilgilerini yazar. Bir uzantıda dosya yoksa bilgi mesajı gösterilir. İşlem sırasında durum çubuğunda dosya numarası izlenebilir; bitince bulunan resim sayısı bildirilir.
• ImageCellFormat: Eklenen resme göre satır yüksekliğini ve A sütununun genişliğini ayarlar. Yüksekliği 409 sınırını aşan resimler en-boy oranı korunarak 400 yüksekliğe indirilir.
• DeletePicts: Sayfadaki resimleri siler, A2:D2 ile başlayan eski verileri temizler ve satır ile sütun ölçülerini sıfırlar. Yeni bir klasör yüklenirken otomatik çalışır.
• GetDrive: Klasör seçme penceresinin başlangıç sürücüsünü belirlemek için sistem dizininin sürücü bilgisini alır.

Kodda dosya silme ya da dışarıya bağlantı işlemi yoktur; silinen yalnızca sayfadaki resimler ve eski liste verileridir.

Nasıl kullanılır​

1. Dosyayı 32 bit Excel'de açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla LoadPictureFiles makrosunu çalıştırın.
3. Açılan pencerede resimlerin bulunduğu klasörü seçin.
4. İşlem bitince Sayfa1'de resimleri ve bilgilerini inceleyin.
5. Başka bir klasör için makroyu yeniden çalıştırın; önceki liste silinerek yenisi oluşturulur.