背景：

1. win10, excel 打开 wps 生成的 xlsx文档；

2. 文档中有多余的图形,经检测为shape大类；

3. 文档中可见的图形可以全选后删除； 但是不可见部分仍然存在；

4. vba删除时，可以直接循环删除，类似 shape.delete;

5. vba删除前，如果逐一选择(shape.select)以便查看，则出现多种错误(vba运行异常)，但都是运行时错误

错误记录：
1. 类型多样：用shape.name查看，有以下类别：

        1）comment；在visible=false情况下，错误信息为-2147467259-自动化 (Automation) 错误

        2）代表picture的长串字母-数字；

        3）host control x；在visible=false情况下，错误信息为-2147024809-请求的图形已被锁定供选择
2. 经检查，图形(shapes)中有一部分是不可见的，无法选中即不能用shape.select选择；
3. 将不可见图形设置为可见后，则问题解决

解决思路及代码如下：
1. 思路，倒循环, 设置为可见，删除
2. 代码如下：

Public Sub shape_remove()
    'wps xlsx文档，用excel打开后，有多余的图形(shape)出现而在wps中没有
    
    'try to keep previous err file
    If ActiveSheet.Shapes.Count = 0 Then
        Debug.Print "no shapes"
        End
    End If
    
    'test only
    Open ActiveWorkbook.Path & "\err.txt" For Output As #1
    
    'main
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        
        Set sp = ActiveSheet.Shapes(i)
       
        On Error Resume Next
        sp.Select
        Print #1, "i=" & i, "shape name:" & sp.Name
        Print #1, "shape type name:" & TypeName(sp)
        Print #1, "visible=" & CBool(sp.Visible)
        
        If Err.Number <> 0 Then
            Print #1, "Err:" & Err.Number & "-" & Err.Description
            If sp.Visible = 0 Then
                Print #1, i & " not visible."
                sp.Visible = True
                Print #1, "set to visible"
                i = i + 1
                sp.Select 'for shape details check
            End If
        Else
            Print #1, "selected and deleted"
            Selection.Delete
        End If
        On Error GoTo 0

        Print #1, Chr(13)

    Next
    
    'test only
    Close #1
End Sub