Vb den Excel Hücresine Fotoğrafı Nasıl Gönderirim?

[ozzy68]

Image1.Picture = LoadPicture("c:\resim\" & TextBox1.Value & ".jpg") koduyla klasör içinden aldığım resmi excel de sayfa1 h13 hücresine göndermek istiyorum bilgisi olan varsa yardımlarınızı bekliyorum !!

 

[tahsinanarat]

Private Sub worksheet_activate()
Dim photo As String
Application.ScreenUpdating = False
On Error GoTo Fin
photo = Range("C5").Value 'resim isminin eşleşceği hücre
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & photo & ".jpg") 'dosyanın resim klasöründe olduğu varsayılmıştır.
Exit Sub
Fin:
Image1.Picture = LoadPicture()
End Sub

Not: H13 hücresine istediğiniz boyutlarda 1 adet image1 nesnesi eklenmeli.

 

[ozzy68]

cevabınız için teşekkür ederim ancak yapmak istediğimi yapamadım.ben resmi vb ile dosya içinden form2 deki image1 nesnesine aldım image1den sayfa1 deki h13 hücresine göndermek istiyorum kodlarınızı denedim ama çalıştıramadım

 

[tahsinanarat]

örnek dosyanızı eklermisiniz