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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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