使用Excel VBA删除图片

Question

如何删除Excel 2007工作表中的所有图片？一个有效的代码示例会很棒.

Answer 1

最简单的方法:

Activesheet.Pictures.Delete

要么

Activesheet.Shapes.Delete

取决于您的图片的对象类型.

删除所有图片的效率更高,然后迭代(循环)并逐个删除它们.

Answer 2

Dim shape As Excel.shape

For Each shape In ActiveSheet.Shapes
        shape.Delete
Next

工作没有,因为它也将删除所有评论,按钮......和其他东西也是形状!一个简单的`activesheet.pictures.delete`就行了.或者您可以使用循环并添加条件:`if shape.type = msopicture或shape.type = msolinkedpicture或shape.type = msoEmbeddedOLEObject then shape.delete` (5认同)