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

Question

我的 Excel 工作表中有一个形状，我必须在代码中添加/删除指向它的超链接。我们如何检查形状是否包含超链接？类似于下面的代码:

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

Answer 1

Public Sub TestMe()

    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        On Error Resume Next
        sh.Hyperlink.Delete
        On Error GoTo 0
    Next sh

End Sub

这个想法是删除每个形状的超链接。如果形状没有，也没关系，代码继续。在此解决方案中，超链接被声明为变量 - How do I refer to a shape's hyperlinks using Excel VBA - 作为解决方法，可以使用类似的东西。