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-请求的图形已被锁定供选择

  1. 经检查,图形(shapes)中有一部分是不可见的,无法选中即不能用shape.select选择;

  2. 将不可见图形设置为可见后,则问题解决

解决思路及代码如下:

  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

相关推荐
The Future is mine2 小时前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker9 小时前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook
盛夏绽放10 小时前
ExcelJS 完全指南:专业级Excel导出解决方案
excel·有问必答
bing_15815 小时前
Excel 如何进行多条件查找或求和?
excel
秀儿还能再秀15 小时前
基于Excel的数据分析思维与分析方法
数据分析·excel
bing_15815 小时前
Excel 如何处理更复杂的嵌套逻辑判断?
excel
weixin_4723394615 小时前
高效处理大体积Excel文件的Java技术方案解析
java·开发语言·excel
灵犀学长15 小时前
EasyExcel之SheetWriteHandler:解锁Excel写入的高阶玩法
spring boot·excel
全干engineer1 天前
Spring Boot 实现主表+明细表 Excel 导出(EasyPOI 实战)
java·spring boot·后端·excel·easypoi·excel导出
Fireworkitte1 天前
Java 中导出包含多个 Sheet 的 Excel 文件
java·开发语言·excel