Köprü Bağlantılarını Görünür Yapma (Nesnelerde)

[totorom]

İyi akşamlar arkadaşlar... Çok sayıda dikdörtgen nesneye köprü bağlantı eklenmiş... Web bağlantısı... Fakat ben bu bağlantıların metin olarak görünür olmasını istiyorum... Bir türlü beceremedim... Resimde görüldüğü üzere nesnenin üzerine geldiğim zaman görünen bu linki bir hücreye aktarmak ya da bu metinleri düzenlenebilir şekilde görüntülemek istiyorum... Sadece üzerine gelince değil sürekli gözüksün... Bir türlü beceremedim, yardım ederseniz sevinirim

 

[totorom]

Yok mu bilen kimse

 

[yasin85]

Herkese Merhaba,

Köprü yapılmış olan linklere ulaşmak için eklediğim dosyayı kullana bilirsiniz.

Çalışmanın orjinal sayfası için Tıkla

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

Function GetURL(rng As Range) As String
    On Error Resume Next
    GetURL = rng.Hyperlinks(1).Address
End Function

Formül =GetURL(A1)