Программно заменить текст всех гиперссылок на адреса- Visual Basic(Бейсик)

Private Sub HyperlinkReplaceValueOnAddress() 'Excel97 (и старше)
    Application.ScreenUpdating = False
    Dim iHyperlink As Hyperlink
    For Each iHyperlink In Worksheets(1).Hyperlinks
        If iHyperlink.Type = msoHyperlinkRange Then _
        iHyperlink.Range.Value = iHyperlink.Address '
    Next
    Application.ScreenUpdating = True
End Sub
В этих версиях, заменить текст гиперссылки на её адрес, можно также используя необязательный аргумент TextToDisplay :

code: #vba
Private Sub HyperlinkReplaceValueOnAddress2() 'Excel2000 (и старше)
    Application.ScreenUpdating = False
    Dim iHyperlink As Hyperlink
    For Each iHyperlink In Worksheets(1).Hyperlinks
        If iHyperlink.Type = msoHyperlinkRange Then _
        iHyperlink.TextToDisplay = iHyperlink.Address
    Next
    Application.ScreenUpdating = True
End Sub

Leave a Comment