如何在文本中获取图像超链接？

Question

我有带超链接的图片（从互联网上复制）。我需要将这些隐藏的超链接转换为另一行中的 URL。

我怎么做？

Answer 1

你没有给我们提供太多关于如何您想要实现这一点，那么这里是实现此目的的基本功能方法。

1. 右击图片，选择Edit Hyperlink
2. URL在Address框中选择

3. 按Ctrl+c复制
4. 关闭窗口
5. 选择要粘贴超链接的单元格
6. 按Ctrl+v粘贴

可以使用更自动化的方法来实现这一点，但需要了解 Excel 中的高级功能才能使用 VBA。我们不知道您的经验水平如何，而且您也没有解释您自己尝试过或做过什么。

---

要使用 VBA 自动执行此操作，请将以下代码添加到 VBA 资源管理器中Sheet1。

Alt您可以通过按+进入 VBA 窗口F11。

代码：

Sub GetImangeHyperlinks()

Dim shp As Shape
Dim sTemp As String

For Each shp In ActiveSheet.Shapes
    sTemp = ""
    On Error Resume Next 'go to next shape if no hyperlink
    sTemp = shp.Hyperlink.Address
    On Error GoTo 0
    If sTemp <> "" Then
        'activate the cell the image is in    
        shp.TopLeftCell.Activate
        'paste down one row and back one column
        ActiveCell.Offset(1, -1).Value = sTemp 
    End If
Next

End Sub

要运行代码，请将光标放在Sub代码开头的单词 , 旁边，然后按F5。它应该运行得相当快，结果应该如下所示。