Userforma resim eklemek

[orkuncan5]

Listviewdeki isme çift tıklayınca isim ve soyisim ler ilgili textboxlara gelmektedir.soyisim textboxuna çift tıklayınca aynı soyisimli sayfadaki resim userform1 deki image1 e yüklenebilirmi.Yardımcı olursanız sevinirim.A sayfasında resim vardır.

 

[Levent Menteşoğlu]

Textbox3'e aşağıdaki kodları yazarak deneyin.

Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 <> "" Then
Set s1 = Sheets("" & TextBox3)
s1.Shapes(1).CopyPicture
Set grafik = ActiveSheet.ChartObjects.Add(0, 0, s1.Shapes(1).Width, s1.Shapes(1).Height)
grafik.Chart.Paste
grafik.Chart.Export "c:\zxxresimxxz.jpg"
grafik.Delete
UserForm1.Image1.Picture = LoadPicture("c:\zxxresimxxz.jpg")
UserForm1.Show
Kill "c:\zxxresimxxz.jpg"
End If
End Sub

 

[orkuncan5]

Levent Hocam resimlere c: gibi path göstermek yerine excel sayfasına gömüp o şekilde userforma alabilirmiyiz

 

[orkuncan5]

UserForm1.Image1.Picture = LoadPicture("c:\zxxresimxxz.jpg") satırında hata verdi.