Question

公平警告，这是我的第一个Stack Overflow问题：

我有一张包含单元格和形状中的多个超链接的工作表。我们即将重新安排我们的文件以更好地组织文件夹，这将破坏其中一些链接。我在Stack Overflow上找到了一个有用的Q / A，它引导我构建一个sub来检查一个链接是否被破坏并突出显示它。

我的问题是如何确定断开链接的锚点？

我想在工作簿“broken_hyper”中创建一个新工作表，其中列出了整个工作簿中的所有损坏的链接，并创建了一个超链接（甚至是描述），返回到我可以找到的位置并修复了断开的链接。 / p>

我尝试使用

If objhttp.statustext <> "OK" Then

    alink.Parent.Interior.Color = 255
    ActiveSheet.Cells(i, 2) = alink.Parent
    ActiveSheet.Hyperlink.Add _
        Anchor:=ActiveSheet.Cells(i, 2), _
        Address:=alink.Parent
        i = i + 1
End If

但是，我找不到.parent以外.cells.row或.cells.column以下的任何可轻松找到锚点的属性。

非常感谢任何帮助。我不是专业人士 - 到目前为止我所接受的一切都来自像你这样的人的有用答案，所以非常感谢。

Answer 1

使用.Address property

If objhttp.statustext <> "OK" Then

    alink.Parent.Interior.Color = 255
    ActiveSheet.Cells(i, 2) = alink.Parent
    ActiveSheet.Hyperlink.Add _
        Anchor:=ActiveSheet.Cells(i, 2), _
        Address:=alink.Parent.Address
        i = i + 1
End If

识别并总结损坏的超链接

1 个答案: