UserForm Üzerinde Resim Gösterme Örneği

Bu dosya, bir UserForm üzerindeki ListBox nesnesinden seçilen kişinin fotoğrafının Image nesnesinde nasıl gösterileceğini örnekler. Fotoğraflar, çalışma kitabının bulunduğu klasörden kişi adına göre yüklenir. Fotoğraf bulunamazsa yedek bir görsel gösterilir.

Dosyanın içeriği​

• Sayfa1: A1:H10 aralığında Adı, Adres, Saat ve Kod sütunları ile Erkan, Sinem, Gökhan, Mustafa, Aşkın, Bahadır, Bülent, Ahmet ve Mehmet adlı dokuz kişilik örnek liste bulunur.
• UserForm1: Kişi listesini gösteren ListBox ve seçilen kişinin fotoğrafını gösteren Image nesnesini içerir.
• Module1: Formu açan FormAc makrosunu içerir.
• Tanımlı ad Tanim, Sayfa1 üzerindeki $A$2:$A$2210 aralığına başvurur ve isim aramasında kullanılır.

Dosyada formül bulunmaz; işlemlerin tamamı makro ile yapılır.

Makrolar​

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

• FormAc: UserForm1 formunu açar.
• UserForm_activate: Form açılırken ListBox1 nesnesinin sütun sayısını, genişliğini ve yüksekliğini ayarlar, ardından Sayfa1 üzerindeki ilk 10 satırı (A, D ve G sütunları) listeye yükler.
• listBox1_Click: Listeden bir isim seçildiğinde adı Tanim aralığında arar. İsim bulunursa çalışma kitabının klasöründeki "isim.jpg" dosyasını Image1 nesnesine yükler; dosya yoksa ya da isim bulunamazsa aynı klasördeki nopic.gif görseli gösterilir.
• ListBox1_DblClick: Listede bir isme çift tıklandığında formu kapatır ve Sayfa1 üzerinde o ismin bulunduğu satırı seçer.

Kodda dosya silme ya da dış bağlantı işlemi yoktur; yalnızca çalışma kitabının klasöründeki görseller okunur.

Nasıl kullanılır​

1. Dosyayı bir klasöre kaydedin ve makroları etkinleştirerek açın.
2. Fotoğrafları aynı klasöre kişi adıyla ve .jpg uzantısıyla kopyalayın (ör. Erkan.jpg). Fotoğrafı olmayan kişiler için aynı klasöre nopic.gif adlı bir görsel koyun.
3. FormAc makrosunu çalıştırarak formu açın.
4. Listeden bir isim seçin; fotoğraf Image nesnesinde görüntülenir.
5. İsme çift tıklayarak formu kapatın ve ilgili satırı sayfada seçin.

Başka kişiler için Sayfa1 listesindeki adlar değiştirilir; form yalnızca ilk 10 satırı yüklediğinden daha uzun listelerde UserForm_activate içindeki satır sayısının artırılması gerekir.