断开所有超链接

Posted 2021-03-04 sundances

Sub BreakAllLinks(wb As Workbook)
Dim links As Variant
With wb
    links = .LinkSources(xlLinkTypeExcelLinks)
    If Not IsEmpty(links) Then
        For i = 1 To UBound(links)
            .BreakLink Name:=links(i), Type:=xlLinkTypeExcelLinks
        Next
    End If
    links = .LinkSources(xlLinkTypeOLELinks)
    If Not IsEmpty(links) Then
        For i = 1 To UBound(links)
            .BreakLink Name:=links(i), Type:=xlLinkTypeOLELinks
        Next
    End If
End With
End Sub