excel批量删除多个表格的照片宏

Sub DeletePictures() Dim sh As Worksheet Dim pic As Picture

For Each sh In ActiveWorkbook.Worksheets For Each pic In sh.Pictures pic.Delete Next pic Next sh

End Sub