可以用vba来做:按alt+f11打开vba编辑器,插入——模块,将下面的代码粘贴进去,按f5运行就可以了:subaa()foreachsinactivesheet.shapess.hyperlink.deletenextendsub
已经发邮件了,请查收