近日上课，遇到学员询问，如何将EXCEL中图片中的超链接批量删除，因为手工删除的工作量实在太大了。于是，编写了如下代码，解决在EXCEL下批量删除图片超链接的问题。

Sub del_link()
Dim She As Shape ''定义图片对象
For Each She In ActiveSheet.Shapes  ''遍历当前工作表的每个图片对象
She.Select ''选择图片对象
On Error Resume Next  ''如果出错，忽略，跳转到下一句。
Selection.ShapeRange.Item(1).Hyperlink.Delete  ''删除图片超链接
Next
MsgBox "OK!"  ''报告已经顺利完成
End Sub

如果你想实现以上功能，又不想写代码，请联系我们，我们有现成的工具可以跳过代码实现以上功能。