Fotoğrafı Hücreye Sığdırma

Fotoğrafı Hücreye Sığdırma isimli dosya, hücreye eklemek istediğiniz resmin boyutlarını hücreden almayı öğretmektedir.

Excel'de Fotoğrafı Hücreye Sığdırma​

Excel'de hücreye resim eklemek, görsel öğelerin raporlar veya tablolar içinde kullanılmasını kolaylaştırmaktadır. Bu içerikte, verilen VBA kodu ile çift tıklama yapılarak bir hücreye resim eklemenin nasıl mümkün olduğu detaylı bir şekilde açıklanmaktadır. Kod, kullanıcı dostu bir şekilde çalışarak seçilen hücreye resim yerleştirmekte ve resmin boyutlarını hücrenin alanına göre otomatik olarak ayarlamaktadır.

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

Aşağıda VBA kodunun her adımı detaylı bir şekilde açıklanmıştır:

1. Worksheet_BeforeDoubleClick Olayı​

Kod, Excel'in çift tıklama olayını yakalamaktadır. Kullanıcı, herhangi bir hücreye çift tıkladığında bu olay tetiklenmektedir.
- Target: Çift tıklanan hücreyi temsil etmektedir.
- Cancel: Varsayılan çift tıklama davranışını iptal etmek için kullanılmaktadır.

2. Kullanıcıdan Resim Dosyası Seçme​

Kod, kullanıcıdan bir resim dosyası seçmesini istemektedir. Bunun için Application.GetOpenFilename fonksiyonu kullanılmaktadır:
- Application.GetOpenFilename: Kullanıcının bilgisayarında bir dosya seçmesini sağlayan bir fonksiyondur.
- Dosya Türü Filtreleri: Sadece resim formatlarını seçmek için filtre eklenmiştir (.gif, .jpg, .bmp, .tif).
- sPicture: Seçilen dosyanın yolu bu değişkende saklanmaktadır.

Eğer kullanıcı bir dosya seçmezse ("False" döner), makro işlemden çıkmaktadır:

3. Resmi Hücreye Eklemek​

Kullanıcı bir dosya seçtiğinde, ActiveSheet.Pictures.Insert(sPicture) yöntemi kullanılarak resim, aktif sayfaya eklenmektedir:
- ActiveSheet.Pictures.Insert: Belirtilen dosya yolundan resmi aktif çalışma sayfasına ekler.
- pic: Eklenen resmi temsil eden bir nesne değişkenidir.

4. Resmin Hücreye Yerleştirilmesi ve Ölçeklendirilmesi​

Kod, resmin boyutlarını ve konumunu çift tıklanan hücrenin alanına göre ayarlamaktadır:
- LockAspectRatio: Resmin en-boy oranı serbest bırakılarak hücrenin boyutuna göre yeniden ölçeklenmektedir.
- Height ve Width: Resmin yüksekliği ve genişliği, çift tıklanan hücrenin boyutlarına ayarlanmaktadır.
- Top ve Left: Resmin hücreye tam olarak yerleşmesi sağlanmaktadır.
- Placement: Resmin hücreyle birlikte taşınması ve boyutlandırılması sağlanmaktadır (xlMoveAndSize).

5. İmlecin Farklı Bir Hücreye Taşınması​

Makro sonunda, imleç F1 hücresine taşınmaktadır:

Özelleştirme ve Kullanım Alanları​

Bu makro, özellikle raporlarda veya görsel sunumlarda hücreye hızlıca resim eklemek için idealdir. Kullanıcı, çift tıklama ile kolayca bir resim ekleyebilir ve resmin boyutlandırılması otomatik olarak yapılmaktadır.

• Raporlama: Görsellerin eklenmesi gereken finansal veya iş raporlarında kullanılabilir.
• Eğitim Materyalleri: Görselli tablolar hazırlamak için uygundur.
• Formlar: Kullanıcı formlarında görsel bilgi eklemek için kullanılabilir.

Sonuç​

Bu makro, Excel'de kullanıcı dostu bir şekilde hücreye resim ekleme işlemini mümkün kılmaktadır. Çift tıklama ile çalışan bu yapı, resimlerin hücreye tam olarak yerleşmesini ve ölçeklendirilmesini sağlamaktadır. Böylece, raporlar ve tablolar görsel açıdan daha etkili hale getirilmektedir. Dosya'da, üstte görülen şekilde iki ayrı hücreden herhangi birine çift tıkladıktan sonra, klasörünüzden resim seçebileceğiniz pencere açıklacaktır. Bilgisayarınızda yer alan ve eklemek istediğiniz resmin yerini bulup, Excel sayfasına eklediğinizde, sonuç aşağıdaki gibi olacaktır.



Dosyadaki kodlar istenildiği gibi kullanılmaktadır. Fotoğraf Boyutunu Hücre Boyutu Kadar Yapma isimli dosyada ise, döngü ile istenen sayıda resmin klasörden Excel sayfasına aktarılması öğretilmektedir.

Tarihi fotoğraf meraklılarına, Osmanlı Tarihi ve Tarihten İnciler isimli sitelerdeki fotoğrafları incelemelerini şiddetle tavsiye etmekteyiz.

Yararlanılması temennisiyle.