[已解决]如何清除工作表中所有图片

hsy873399 · 发表于 2011-12-16 18:22

用VBA代码编写，只清除所有图片，不清楚文字内容哦

最佳答案

hongliang224

2011-12-17 08:33

简单点你录制一个宏，会吧！然后执行，编辑-----定位-----定位条件-----对象，然后删除，停止宏录制！应该可以达到你的目的。你可以把录制的宏制作成一个按钮，今后你执行这个宏就可以删除全部的图片了，对初学者很管用！

hytsky · 发表于 2011-12-16 18:25

For Each im In ActiveSheet.Shapes
im.Delete
Next
试试

菜鸟锐 · 发表于 2011-12-16 19:14

hytsky 发表于 2011-12-16 18:25
For Each im In ActiveSheet.Shapes
im.Delete
Next

就看懂了几个英文单词，程序，模型，删除。

hytsky · 发表于 2011-12-16 19:21

菜鸟锐发表于 2011-12-16 19:14
就看懂了几个英文单词，程序，模型，删除。

连next都看不懂``哎

hongliang224 · 发表于 2011-12-17 08:33

简单点你录制一个宏，会吧！然后执行，编辑-----定位-----定位条件-----对象，然后删除，停止宏录制！应该可以达到你的目的。你可以把录制的宏制作成一个按钮，今后你执行这个宏就可以删除全部的图片了，对初学者很管用！

mxg825 · 发表于 2012-6-12 17:32

ActiveSheet.DrawingObjects.Delete '删除所有对对象

		自动登录	找回密码
密码			注册