Excel中提取A列图片的超链接到B列?
发布网友
发布时间：2022-04-23 00:18
共1个回答
热心网友
时间：2023-10-09 05:17
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 的范围……
