wps电子表格(xlsx)在excel打开时，多余图形(shapes)的处理

背景：

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