Sub 遍历所有工作表_删除所有图片()
Dim shp As Shape, sht As Worksheet
Rem On Error Resume Next '忽略报错,防止有#N/A
Rem 遍历所有工作表
For Each sht In Worksheets
sht.Activate
Rem 清除图形对象
For Each shp In sht.Shapes
shp.Delete
Next
Next
Rem On Error GoTo 0 '恢复报错
End Sub