如何从Excel中的多个图像中提取超链接？

假设你在工作表中有一系列图片，每张图片都包含一个超链接。现在，你希望从这些图片中提取真实的超链接地址，并将其显示在图片旁边的单元格中，如下截图所示。当然，你可以通过“ 编辑超链接”对话框逐一复制超链接地址，但如果需要提取的超链接较多，这种方法将非常耗时。在本文中，我将介绍一些方法，帮助你在Excel中快速轻松地完成此任务。

使用VBA代码从多个图像中提取超链接

使用VBA代码从多个图像中提取超链接

以下VBA代码可以帮助你一次性从多个带超链接的图片中提取真实地址，请按照步骤操作：

1. 在Excel中按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：从多个带超链接的图片中提取真实地址

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

3. 然后按 F5 键运行此代码，所有超链接地址都会被提取到图片旁边对应的单元格中，如下截图所示：

备注：此代码将从当前工作表中的所有图片中提取真实地址。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！