Question

excel中如何显示超链接为图片

Answer 1

要让超链接显示为图标，请按下列步骤：

1. 用绘图工具在Excel中创建一个图标，或者采用“插入”加入一个已有的图标文件。

2. 在图标上点击鼠标右键，选择“超链接”，进入超链接编辑窗口。

3. 在超链接编辑窗口中进行有关超链接设置。完成后“确定”退出。

看看，是不是点击图标就能进入你设置的超链接了？就这样。

Answer 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 的范围……