Hücreden Popup Resim Açma

[xwyz1]

Merhaba, elimde böyle bir örnek var ve bunu geliştirmek istiyorum:

Örnek STOK KODU sütunundaki hücrelere tıklandığında D:/FOTO kaynağından pop resim gösteriyor.

Benim geliştirmek istediğim özellik ise Kaynak yolunu da aynı satırdaki TARİH sütunundan alsın. Sonuç olarak tarih adı klasör adı olacak ve şöyle bir kaynaktan çekmiş olacak:

"D:/Foto/21.12.2012" gibi...

Yardımlarınızı bekliyorum, teşekkür ederim.

 

[xwyz1]

Dosya ektedir.

 

[tahsinanarat]

Sayfanın kod bölümüne aşağıdaki kodları yazarak deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
ActiveSheet.Pictures.Delete
Üst_Satır = ActiveWindow.ActivePane.ScrollRow
Aktif_Satır = Target.Row
Satır_Say = Windows(1).VisibleRange.Rows.Count
If Üst_Satır <= Aktif_Satır Then
ActiveWindow.SmallScroll Down:=Aktif_Satır - Üst_Satır
End If
If Target.Column <> 3 Then Exit Sub
Target.Next.Activate 'iki sutun sonrasına resmi getirir
ActiveSheet.Pictures.Insert ("D:\FOTO\" & Cells(Target.Row, 7) & "\" & Target & ".jpg")
Application.EnableEvents = False
Cells(Target.Row, 3).Activate
Application.EnableEvents = True
End Sub