Fotoğraf Boyutunu Hücre Boyutu Kadar Yapma

Fotoğraf Boyutunu Hücre Boyutu Kadar Yapma, klasörde yer alan sınırsız sayıdaki fotoğrafın, hücreler ile aynı boyutta olmasını sağlamaktadır.

Excel ile Fotoğraf Boyutunu Hücre Boyutu Kadar Yapma​

Excel'de çok sayıda hücreye bağlı olarak resim ekleme işlemini manuel yapmak oldukça zaman alıcıdır. Bu içerikte, "Resim_Ekle" adında bir VBA makrosu kullanılarak birden fazla hücreye otomatik resim eklemenin nasıl yapıldığı detaylı bir şekilde açıklanmaktadır. Bu makro, belirli bir hücrede yazılı olan isimlere göre klasörden resim dosyalarını bulur ve belirtilen alana yerleştirmektedir.

Kodun İşlevi ve Çalışma Prensibi​

1. Makronun Başlatılması​

Makro, çalışma sayfasındaki tüm çizim nesnelerini temizleyerek işe başlamaktadır:
Bu satır, daha önce eklenmiş olan tüm resimleri ve şekilleri silerek temiz bir başlangıç yapmaktadır.

2. Döngü ile Hücrelerin Kontrol Edilmesi​

Makro, A sütunundaki hücrelerdeki her bir değeri döngüye alarak işlem yapmaktadır:
- Sayfa1.Range("A1:A"): A sütunundaki dolu hücreleri kontrol etmektedir.
- End(xlUp): A sütununun son dolu hücresini bulur ve döngüyü ona göre sınırlamaktadır.

3. Resim Dosyasının Yolu ve Kontrolü​

Her hücre için resim dosyasının yolu belirlenir:
- ThisWorkbook.Path: Çalışma kitabının bulunduğu klasör yolunu almakadır.
- Alan.Value: Hücredeki değeri alarak dosya ismini oluşturmaktadır.
- ".jpg": Resmin dosya uzantısı olarak ".jpg" eklemektedir.

Eğer hücrede geçerli bir dosya adı yoksa, makro bir sonraki hücreye geçmektedir:

4. Resmin Eklenmesi ve Hücreye Yerleştirilmesi​

Geçerli bir dosya adı bulunduğunda, resim seçilen hücreye eklenir ve belirtilen alanın boyutlarına göre ayarlanmaktadır:
Ardından, resmin boyutları ve konumu aşağıdaki şekilde ayarlanmaktadır:
- LockAspectRatio: Resmin en-boy oranı serbest bırakılmaktadır.
- Height ve Width: Resmin boyutları, ilgili hücrenin boyutlarına uygun hale getirilmektedir.
- Top ve Left: Resmin hücrenin üstüne düzgün şekilde yerleşmesi sağlanmaktadır.
- Placement: Resmin hücre ile birlikte taşınmasını ve boyutlandırılmasını sağlanmaktadır.

5. Bir Sonraki Hücreye Geçiş​

Resim eklendikten sonra makro, bir sonraki hücreye geçerek işlemi tekrarlamaktadır:

Kullanım Alanları​

Bu makro, aşağıdaki alanlarda etkin bir şekilde kullanılabilir:

• Ürün Katalogları: Ürün adlarına göre resimlerin eklenmesi için kullanılabilir.
• Raporlama ve Görselleştirme: Grafik veya görsel eklemenin gerektiği raporlar için idealdir.
• Formlar ve Veri Sunumları: Veri sunumlarında görselliği artırmak için resim ekleme işlemlerinde kullanılabilir.

Sonuç​

Bu VBA makrosu, Excel'de resim ekleme işlemini otomatikleştirerek kullanıcıların zaman tasarrufu yapmasını sağlamaktadır. Kodun esnek yapısı sayesinde, farklı dosya yolları ve resim formatları kolayca uyarlanabilmektedir. Özellikle büyük veri setlerinde görsellik gerektiren durumlarda, bu makro iş süreçlerini kolaylaştırmaktadır. Daha öncesinde Fotoğrafı Hücreye Sığdırma isimli dosyada, bir klasörden seçilen fotoğrafı, hücre boyutunda otomatik boyutlandırma örneği bulunmaktadır. Gelen talepler doğrultusunda, aynı mantıkta bir klasörde bulunan sınırsız sayıda fotoğrafı Excel hücrelerine ekleyip, hücrelerin boyutunda olacak şekilde örneklendirilmiştir.

Dosyada, bir Excel sütununda yer alan isimler ile aynı şekilde kayıt edilen fotoğrafların klasörden Excel hücresine alınması ve hücrenin boyutunda olması işlenmektedir.

İhtiyaç duyanların faydalanması temennisiyle