批量提取Excel中带超链接图片的超链接方法求助

方法一：VBA宏批量提取（推荐大量图片使用） #

这是最高效的批量处理方式：

• 打开目标Excel文件，按下Alt + F11打开VBA编辑器
• 右键点击左侧面板中的当前工作簿名称，选择「插入」→「模块」
• 将以下代码粘贴到模块编辑窗口：

Sub ExtractImageHyperlinks()
    Dim shp As Shape
    Dim ws As Worksheet
    Dim i As Integer
    
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "图片超链接结果"
    ws.Range("A1").Value = "图片名称"
    ws.Range("B1").Value = "超链接地址"
    i = 2
    
    For Each shp In ActiveSheet.Shapes
        If shp.Hyperlink Is Not Nothing Then
            ws.Range("A" & i).Value = shp.Name
            ws.Range("B" & i).Value = shp.Hyperlink.Address
            i = i + 1
        End If
    Next shp
    
    MsgBox "提取完成，结果已存入新工作表！"
End Sub

• 按下F5运行宏，或点击编辑器工具栏的「运行」按钮
• 完成后会自动生成一个名为「图片超链接结果」的工作表，包含所有图片的名称和对应超链接

方法二：手动提取（适合少量图片） #

如果图片数量不多，可逐个操作：

• 右键点击目标图片，选择「超链接」→「编辑超链接」
• 选中弹出窗口地址栏中的链接文本，按Ctrl + C复制
• 将链接粘贴到记事本或其他文档保存

内容的提问来源于stack exchange，提问作者saroman