Excel VBA: 一键删除表格中所有图形、图片

Excel表格中插入图形、图片，有时能增强可读性，但插入过多难以管理，而且会导致Excel文件过大，打开速度明显变慢。如果不想再保留这些图形、图片，可以使用以下VBA宏一键删除表格中所有图形、图片，包括隐藏的图形、图片。

直接上代码：

Sub DelAllShapes()
''' delete all shapes in the workbook

    Dim sht As Worksheet
    Dim shp As Shape
    Dim m&, n&
    m = 0
    n = 0
    For Each sht In ActiveWorkbook.Sheets
        Debug.Print sht.Name & ": " & sht.Shapes.Count
        sht.Unprotect
        For Each shp In sht.Shapes
            m = m + 1
            On Error Resume Next
            Err.Clear
            shp.Locked = True
            shp.Visible = msoTrue
            shp.Delete
            If Err.Number <> 0 Then
                n = n + 1
                Debug.Print ("Error # " & Err.Number & " is generated by " & Err.Source & ": " & Err.Description)
            End If
            On Error GoTo 0
        Next
    Next
    
    Debug.Print "Totally " & m & " Shapes, " & n & " failed."

End Sub

当然，也可以增加对Shape.Type的判断，来删除指定类型的Shape。