Merhaba Arkadaşlar,
P2 hücresine resmin adını yazdığımda ve o hücreyi seçtiğimde resim geliyor fakat aynı hücreye list box koyduğumda resimler gelmiyor. Bu kodu , List box içinden seçtiğim resim adını sayfada gördüğünde resmi getirebileceği şekilde nasıl düzenleyebilirim?
Nerede hata yapıyorum? Yardımlarınızı rica ederim.
P2 hücresine resmin adını yazdığımda ve o hücreyi seçtiğimde resim geliyor fakat aynı hücreye list box koyduğumda resimler gelmiyor. Bu kodu , List box içinden seçtiğim resim adını sayfada gördüğünde resmi getirebileceği şekilde nasıl düzenleyebilirim?
Nerede hata yapıyorum? Yardımlarınızı rica ederim.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Pictures.Delete
Yol = "C:\Users\coskun\Desktop\Mail\Mail\"
sh.Range("P2").Value
ActiveSheet.Pictures.Insert Yol & Target.Text & ".jpg"
Set obj = Pictures(1)
obj.Top = 1200
obj.Height = 715
obj.Left = [A7].Left
obj.Top = [A7].Top
End Sub