Açıklamalara Resim Ekleme

Bu dosya, hücre açıklamalarının (comment) dolgusuna resim yerleştirmeyi gösterir. İki yöntem vardır: seçilen hücreye göre otomatik değişen bir resim açıklaması ve dosya adı listesinden toplu açıklama oluşturan bir makro. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A12:A16 hücrelerinde MyPic01.jpg - MyPic05.jpg resim dosya adları bulunur. C ve E sütunlarında 15-17. satırlarda kod ve etiket verileri yer alır (14512 / y1, 14563 / y2, 67839 / y3, 90873 / y4, 80498 / y5). H sütunundaki notlarda, F12 hücresine gelindiğinde C ve F sütunlarının birleşiminden oluşan resmin açıklama içinde gösterilmesinin istendiği ve listenin 1000 satıra ulaşacağı belirtilir.

Dosyada formül bulunmaz; işlemler makrolarla yapılır.

Makrolar​

• Worksheet_SelectionChange (Sheet1): F13:F17 aralığında bir hücre seçildiğinde çalışır. L19 hücresindeki açıklamayı silip yeniden oluşturur, görünür yapar ve dolgusuna resim koyar. Resim dosyasının adı, seçilen satırdaki C sütunu değeri ile seçilen hücrenin metninin birleşiminden ve .jpg uzantısından oluşur. Resim, çalışma kitabıyla aynı klasörde aranır. Bu makro otomatik çalışır.
• InsertComment (Module1): A1:A5 aralığındaki dosya adlarını okur, her birinin sağındaki (B sütunu) hücreye açıklama ekler, açıklama metnini boşaltır ve dolgu olarak C:\Data\ klasöründeki resmi atar. Açıklamalar gizli bırakılır, hücrenin üzerine gelindiğinde görünür. Makro On Error Resume Next kullandığı için bulunamayan resimlerde hata vermeden devam eder.

Makrolarda dosya silme veya dışarıya bağlantı işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Otomatik yöntem için jpg resimlerini çalışma kitabıyla aynı klasöre koyun, dosya adlarını C sütunu değeri ve F sütunu metnine göre düzenleyin ve F13:F17 aralığında bir hücre seçin; resim L19 açıklamasında görünür.
3. Toplu yöntem için resimleri C:\Data\ klasörüne kopyalayın, dosya adlarını A1:A5 aralığına yazın ve InsertComment makrosunu Alt+F8 ile çalıştırın.
4. Klasör yolu veya hücre aralığı farklıysa makrodaki strPic ve rngList değerlerini kendi çalışma kitabınıza göre değiştirin.