Köprü ile belirlenmiş linke tıkladığımızda pdf veya jpg dosyasını sayfada ki image nesnesine nasıl getirebiliriz.

[udentr2002]

Merhaba arkadaşlar;
Sayfada a2 hücresinden aşağı doğru Bir kalsör içinde ki dosyaların köprü şeklinde linki var.
Bu linkleri şu aşağıdaki kod yardımı ile a2 hücresine yazdırıyorum.

Sub DosyaAdlariYaz()
    Dim DosyaYolu As String
    Dim DosyaAdi As String
    Dim Satir As Integer
    
    DosyaYolu = "C:\Alan Çizimleri\" ' Alan Çizimleri klasörünün doğru yolunu buraya girin
    Satir = 2 ' A2 hücresinden başlayarak dosya adlarını yazmak istediğiniz satır numarasını buraya girin
    
    DosyaAdi = Dir(DosyaYolu & "*.*")
    
    Do While DosyaAdi <> ""
        If DosyaAdi <> "." And DosyaAdi <> ".." Then
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(Satir, 1), Address:=DosyaYolu & DosyaAdi, TextToDisplay:=DosyaAdi
            Satir = Satir + 1
        End If
        DosyaAdi = Dir
    Loop
    
    MsgBox "Dosya adları başarıyla yazıldı."
End Sub

Burda yapmak istediğim şey şu:
O köprü linkine tıkladığımda o jpg veya pdf dosyasının içeriğini sayfa üzerinde Geliştirici sekmesinden eklediğim image nesnesine nasıl aldırabilirim?

Yardımalrınızı rica ederim.

Saygılarımla