Userform üzerinden çalışma sayfasına Image nesnesi ve resim ekleme

[basaksehirli]

İyi günler arkadaşlar.

Userform arayüzü kullanıyorum. Uygulamayı verdiğim kişiler istediği gibi resim ekleyecekler. Listbox üzerinden seçilen bilgi sonrası çalışma sayfasında Image nesnesindeki resim, userform üzerindeki Image nesnesinde gösterilecekler. Ve eklenen kişinin TC kimlik numarası ve Image1 adı TC kimlik no olduğu zaman eşleşecek.
Çalışma sayfasına manuel olarak Image nesnesi koyup, TC kimlik numarası verdiğim resmi eklediğim zaman Userformda rahatça gösterebiliyorum.
Ama ben işlemi her seferinde çalışma sayfasını açarak değil, userform üzerinden yapmak istiyorum.
Yardımcı olabilir misiniz ?

 

[basaksehirli]

Böyle bir kod buldum userformdan gözat diyerek çalışma sayfasındaki Image nesnesine resim ekliyor. Ama ben gözat diyip resim seçtiğimde her resim için çalışma sayfasında Image nesnesi oluşsun, resmi yüklesin ve resim nesnesinin adını değiştirebileyim.

Sub Resim_Ekle()
    Dim resim As String
    resim = "Resim Dosyaları (*.jpg),*.jpg"
    baslik = "Resim Seçimi"
    secilendosya = Application.GetOpenFilename(resim, , baslik)
    If secilendosya = False Then Exit Sub
    Sayfa13.Image1.Picture = LoadPicture(secilendosya)
    resim = vbNullString
End Sub

 

[byfika]

Merhabalar,
Ekteki örneği inceler misiniz? İstediğiniz böyle birşey mi?

 

[basaksehirli]

Yok hocam böyle bir şey değil ama çözdüm. Benim istediğimde resimleri klasörden almayacak, klasörle bir işimiz olmayacak. Her şey excel de olup bitecek.
Ama teşekkür ederim sağolun.