image - 是否有可能有一个从超链接图像中获取 URL 的 VBA 脚本？

Question

我有一个充满文本和图像超链接的工作簿，我有一些代码可以很好地处理文本 URL，但是，图像链接存在问题，因为它们不在页面流中能够拉出这些链接。我不知道 VBA 如何将这些视为对象，是否可以定位或循环通过它们来提取它们的 URL？

Answer 1

试试这种方式（我使用了你的代码并放了一些错误处理说明）：

Sub test()
    Dim WriteRow As Integer
    WriteRow = 1
    Dim imglink As Shape

'error handling
On Error Resume Next
For Each imglink In Sheets(1).Shapes
    'if any shape doesn't have hyperling we would skip it
    ActiveWorkbook.Sheets(3).Cells(WriteRow, 1).Value = imglink.Hyperlink.Address
    If Err.Number = 0 Then
        WriteRow = WriteRow + 1
    Else
        Err.Clear
    End If
Next
End Sub

我希望您每次检查超链接的形状时都会出错。