Klasörden Resim Alma ve Boyutlandırma

Bu dosya, Excel dosyasıyla aynı klasörde duran JPG resimlerini A sütunundaki isimlere göre bulur ve B sütunundaki hücrelere sığacak biçimde yerleştirir. Resim ekleme ve boyutlandırma işlemi tek bir makro ile yapılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A sütununda resim adları yer alır (ör. "Amin alayı", "Osmanlı İstanbulu", "Boğaz'da Bir Kahvehane", "Bir Osmanlı Dervişi"). B sütunu resimlerin yerleştirileceği alandır, C sütununa ise hata durumunda uyarı mesajı yazılır.

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

• Resim_Ekle: Sayfa1 kod modülündedir. Çalışınca önce sayfadaki "resim_ekle" adlı nesne dışındaki tüm şekilleri siler, ardından C sütunundaki eski içeriği temizler. Sonra A sütunundaki her ad için dosyanın bulunduğu klasörde "ad.jpg" dosyasını arar.
• Resim bulunursa B sütunundaki hücreye (birleştirilmiş hücre ise tüm birleşik alana) en-boy oranı kilitlenmeden, kenarlardan yaklaşık 1 punto pay bırakarak sığdırılır. Resim, hücreyle birlikte taşınır ve boyutlanır.
• Resim bulunamazsa klasördeki "ResimYok.jpg" dosyası kullanılır ve C sütununa "Resim yok ya da isim hatalı." uyarısı yazılır.
• İşlem sırasında ekran güncellemesi kapatılır, bitince A1 hücresi seçilir.

Kodda dosya silme veya dışarıya bağlantı gibi riskli bir işlem yoktur. Silinen tek şey, sayfadaki önceki resimler ve C sütunundaki eski uyarılardır. Bu nedenle sayfaya kendi eklediğiniz başka şekiller varsa makro çalışınca silineceğini unutmayın.

Nasıl kullanılır​

1. Zip dosyasını klasöre çıkarın ve .xlsm dosyasını açın, makroları etkinleştirin.
2. JPG resimlerinizi Excel dosyasıyla aynı klasöre koyun. Dosya adları uzantısız haliyle A sütunundaki yazımla birebir aynı olmalıdır.
3. Hata durumunda gösterilecek "ResimYok.jpg" dosyasını da aynı klasöre ekleyin.
4. A sütununa resim adlarını yazın, B sütunundaki hücreleri resim boyutuna göre ayarlayın veya birleştirin.
5. Makroyu Alt+F8 ile veya sayfadaki "resim_ekle" adlı düğmeye atayarak çalıştırın.