如何用vba批量删除工作簿内所有工作表上的图形对象？

单击F5快捷键→定位条件→对象→确定 可以一次性选中当前工作表的所有图形对象，然后通过DEL键删除。

但是如果要删除的对象位于多个工作表，且不清楚具体是在哪几个工作表时，使用如下的VBA代码将会更加的便捷。

Sub QQ1722187970()
    Dim oWK As Worksheet
    Dim oSP As Shape
    '遍历所有工作表
    For Each oWK In Excel.ThisWorkbook.Sheets
        '遍历所有图形对象
        For Each oSP In oWK.Shapes
            oSP.Delete
        Next
    Next
End Sub