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

Bu dosya, bir hücreye çift tıklandığında resim seçtirir ve seçilen resmi o hücrenin (birleştirilmiş hücre ise birleşik alanın) boyutlarına sığdırarak yerleştirir. Ürün listesi, personel kartı gibi tablolarda hücre başına bir fotoğraf eklemek için kullanılır.

Dosyanın içeriği​

• Sheet1: B2:L25 aralığında biçimlendirilmiş çalışma alanı. Resimler bu sayfadaki hücrelere eklenir. Sayfada formül bulunmaz; işlemi sayfa koduna yazılmış makro yapar.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro Sheet1 sayfasının kod bölümündedir ve Worksheet_BeforeDoubleClick olayıyla çalışır; ayrıca çalıştırma düğmesi gerekmez.

• Sayfada bir hücreye çift tıklandığında dosya seçme penceresi açılır. Pencere gif, jpg, bmp ve tif dosyalarını listeler.
• Pencere iptal edilirse makro hiçbir işlem yapmadan sonlanır.
• Seçilen resim sayfaya eklenir, en-boy oranı kilidi kapatılır ve resmin yüksekliği ile genişliği çift tıklanan hücrenin (birleştirilmiş ise birleşik alanın) ölçülerine eşitlenir.
• Resim hücrenin sol üst köşesine konumlandırılır ve yerleşimi xlMoveAndSize olarak ayarlanır; hücre boyutu değişirse resim de hücreyle birlikte taşınır ve boyutlanır.
• İşlem sonunda F1 hücresi seçilir.

Makro dosya silme ya da dış bağlantı gibi bir işlem içermez; yalnızca seçtiğiniz resim dosyasını okur.
En-boy oranı kilitli olmadığından, hücre oranı resimden farklıysa resim gerilmiş görünür. Resmin oranını korumak için hücre ölçüleri resim oranına yakın ayarlanır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Resim eklenecek hücrenin satır yüksekliğini ve sütun genişliğini istediğiniz boyuta getirin; gerekirse hücreleri birleştirin.
3. Hücreye çift tıklayın.
4. Açılan pencereden resim dosyasını seçin.
5. Resim hücreye sığdırılarak yerleştirilir; başka hücreler için aynı adımları tekrarlayın.

Aynı makro kendi dosyanıza da taşınabilir: Alt+F11 ile VBE açılır, ilgili sayfanın kod bölümüne olay yordamı yapıştırılır ve dosya .xlsm olarak kaydedilir.