Как программно заменить текст всех гиперссылок на адреса?

Категория: Basic
2012-08-20 15:06:50
code: #vba
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

Актуально для MS Excel 97, 2000, XP

Поделиться:

Похожие статьи:

теги: ссылка, vba, макросы, гиперссылки, адрес ссылки, адрес гиперссылки