EXCEL中A列是带超链接的图片，怎样批量提取图片所带的超链接放在B列，多谢
发布网友
发布时间：2022-04-23 22:11
共1个回答
热心网友
时间：2023-10-11 15:56
Sub xHyperLink()
On Error Resume Next
Dim xs As Shape
For Each xs In Shapes '查找每一个图片
If xs.TopLeftCell.Column = 1 Then '判断图片左上角单元格位置，如果在A列
Cells(xs.TopLeftCell.Row, 2) = xs.Hyperlink.Name '取得图片左上单元格所在行，将图片超链地址写入对应的B列
End If
Next
End Sub
