从工作表中删除所有内容

Question

我现在有一个宏，可以在工作表中添加内容（文本，格式，图片），然后在默认打印机上打印工作表，然后清除工作表。

这是我现在的代码，其中i是输入数据的次数，25是每次添加数据时受影响的行数。

Range("A1", "I" & i * 25).Clear

我的问题是它清除文本，它取消合并单元格并删除所有格式但它不会删除图片。我需要做些什么来删除它们呢？

Answer 1

删除图片：

Dim s As Shape
For Each s In ActiveSheet.Shapes
    s.Delete
Next s

Answer 2

您可以尝试简单地说：

with Activesheet
   .UsedRange.Clear
   .DrawingObjects.Delete
End With

您也可以使用：

.Pictures.Delete

取代

   .DrawingObjects.Delete

如果只有你需要删除的照片。

Answer 3

dim s as Shape
ActiveSheet.UsedRange.Clear
For Each s In ActiveSheet.Shapes
    s.Delete
next