码迷,mamicode.com
首页 > 其他好文 > 详细

断开所有超链接

时间:2020-03-20 10:48:08      阅读:70      评论:0      收藏:0      [点我收藏+]

标签:empty   with   color   links   span   not   source   sources   end   

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

 

断开所有超链接

标签:empty   with   color   links   span   not   source   sources   end   

原文地址:https://www.cnblogs.com/sundanceS/p/12530058.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!