Fotoğraf Boyutunu Hücre Boyutu Kadar Yapma

Bu dosya, çalışma kitabıyla aynı klasörde duran JPG fotoğrafları hücre boyutuna göre otomatik yerleştirir. Fotoğraf adları A sütununa yazılır, Resim_Ekle makrosu her adın karşısındaki B hücresine ilgili resmi ekler ve resmi o hücrenin genişlik ve yüksekliğine getirir. Fotoğraf sayısı sınırsızdır; resimler tek tek elle eklenmez.

Dosyanın içeriği​

• Sayfa1: A1:A6 hücrelerinde fotoğraf adları bulunur (Amin Alayı, Osmanlı İstanbulunda Bir Pazar, Bir Osmanlı Savaş Sahnesi, Boğaz'da Bir Kahvehane, Bir Osmanlı Dervişi, Osmanlı İstanbulu). Resimler B sütununa yerleşir.
• İndirilen pakette xlsm dosyasının yanında bu adlara karşılık gelen 6 örnek JPG fotoğraf yer alır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro kodu Sayfa1 sayfa modülündedir.

• Resim_Ekle: Önce etkin sayfadaki tüm çizim nesnelerini (resim ve şekiller) siler. Sonra A1 hücresinden A sütunundaki son dolu hücreye kadar ilerler. Her hücredeki değere ".jpg" ekleyerek kitabın bulunduğu klasörde bu adlı dosyayı arar. Hücre boşsa o satırı atlar. Resmi B sütunundaki komşu hücreye ekler, en-boy oranı kilidini kapatır ve yüksekliği ile genişliğini hücrenin (birleşik hücre ise birleşik alanın) ölçüsünden 2 punto küçük yapar. Resim hücre ile birlikte taşınır ve boyutlanır.

Makroda dosya silme ya da dışarıya bağlantı işlemi yoktur; yalnızca sayfadaki mevcut çizim nesneleri temizlenir. Dosya yolu "\" ayracıyla kurulduğu için makro Windows için yazılmıştır.

Nasıl kullanılır​

1. Zip dosyasını klasöre çıkarın; xlsm dosyası ve JPG fotoğraflar aynı klasörde kalsın.
2. Dosyayı açıp makroları etkinleştirin.
3. A sütununa fotoğraf adlarını uzantısız yazın (örneğin "Amin Alayı" için Amin Alayı.jpg dosyası olmalıdır).
4. B sütunundaki satır yüksekliğini ve sütun genişliğini istediğiniz resim boyutuna ayarlayın; birleşik hücre de kullanılabilir.
5. Alt+F8 ile Resim_Ekle makrosunu seçip Çalıştır'a basın.
6. Resimler her çalıştırmada silinip yeniden eklenir; ölçüyü değiştirdiğinizde makroyu tekrar çalıştırmanız yeterlidir.

Listedeki adlara karşılık gelen bir JPG dosyası klasörde yoksa makro hata verir; dosya adlarını klasördekilerle aynı yazın.