Resmin c sutununda görünmesini nasıl sağlayabiliriz

[tahsinanarat]

Ekli dosyamda a sutununda bulunan kodların üzerine gelindiğinde D:\foto klasöründeki aynı isimle yazılı resimleri görüntülenmektedir. Ben bu görününtünün a sutununda değilde c sutununda görüntülenmesini istiyorum, bunu nasıl sağlayabiliriz. Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Kodlar;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Pictures.Delete
If Target.Column <> 1 Then Exit Sub
ActiveSheet.Pictures.Insert ("D:\Foto\" & Target & ".jpg")
End Sub

 

[tahsinanarat]

Eğer bu soruma da çözüm olursa resim konusunda arşiv zenğinliği olur.

 

[Korhan Ayhan]

Selamlar,

Ekteki şekilde bir çözüm buldum. Umarım faydası olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.Pictures.Delete
    If Target.Column <> 1 Then Exit Sub
    Target.Next.Next.Activate
    ActiveSheet.Pictures.Insert ("D:\foto\" & Target & ".jpg")
    Application.EnableEvents = False
    Cells(Target.Row, 1).Activate
    Application.EnableEvents = True
End Sub

 

[exam77]

Korhan Hocam yanıtlamış,
Benim uğraştığımda boşa gitmesin diye eklim...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.Pictures.Delete
    If Target.Column <> 1 Then Exit Sub
    Cells(Target.Row, 3).Activate
    ActiveSheet.Pictures.Insert ("D:\Foto\" & Target & ".jpg")
End Sub

 

[tahsinanarat]

Sn. Korhan hocam, tek kelime ile harikasınız, çok çok teşekkürler. Saygılar.

 

[tahsinanarat]

Sn. exam77 sizede çok teşekkür ederim, altarnatif olarak değişik kodları öğreniyoruz. Sağolasınız.