写一段vba代码 把excel中所有工作簿中的图片删除

以下是 VBA 代码，可用于删除 Excel 中所有工作簿中的图片：

Sub DeleteAllImages()Dim ws As WorksheetDim shp As ShapeFor Each ws In ThisWorkbook.WorksheetsFor Each shp In ws.ShapesIf shp.Type = msoPicture Thenshp.DeleteEnd IfNext shpNext ws