excel - 检查形状中是否存在超链接

我在Excel工作表中有一个形状，并且必须在其中添加/删除超链接作为代码的一部分。我们如何检查形状是否包含超链接？类似于以下代码：

if shape.hyperlink.exists is True then
   shape.hyperlink.delete
end if

最佳答案

要检查Shape是否具有超链接，请在您的帖子中调用此函数（而不是'shape.hyperlink.exists'）：

Public Function HasHyperlink(shpTarget As Shape) As Boolean
    Dim hLink As Hyperlink: Set hLink = Nothing
    On Error Resume Next: Set hLink = shpTarget.Hyperlink: On Error GoTo 0
    HasHyperlink = Not (hLink Is Nothing)
End Function

关于excel - 检查形状中是否存在超链接，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/50911808/