Sub xHyperLink()
On Error Resume Next
Dim xs As Shape
For Each xs In ActiveSheet.Shapes '查找每一个图片
If xs.TopLeftCell.Column = 1 Then '判断图片左上角单元格位置，如果在A列
Cells(xs.TopLeftCell.Row, 2) = xs.Hyperlink.Name '取得图片左上单元格所在行，将图片超链地址写入对应的B列
End If
Next
End Sub
这样改一下……
重点：要定义shapes 的范围……
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024