excel中如何显示超链接为图片
2个回答
展开全部
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 的范围……
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 的范围……
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询