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

相关推荐
CodeLongBear3 小时前
苍穹外卖 Day12 实战总结:Apache POI 实现 Excel 报表导出全流程解析
java·excel
爱上妖精的尾巴4 小时前
5-22 WPS JS宏reduce数组的归并迭代应用(实例:提取最大最小值的记录)
服务器·前端·javascript·笔记·wps·js宏
技术钱13 小时前
vue3 封装图片上传预览组件支持docx、excel、pdf、图片、txt格式
vue.js·pdf·excel
r i c k14 小时前
Excel表----VLOOKUP函数实现两表的姓名、身份证号码、银行卡号核对
excel
枫,为落叶1 天前
【vue】导出excel
前端·vue.js·excel
星空的资源小屋1 天前
RoboIntern,一款自动化办公小助手
运维·人工智能·pdf·自动化·电脑·excel
会飞的小菠菜1 天前
大量Excel工作簿中的图片怎么批量提取出来
excel·导出·图片·提取·批量·保存·另存为
nongcunqq1 天前
abap 操作 excel
java·数据库·excel
CodeCraft Studio2 天前
国产化Excel开发组件Spire.XLS教程:将Python列表转换为Excel表格(3种实用场景)
开发语言·python·excel·spire.xls·python列表转excel·国产化文档开发
企鹅侠客2 天前
基于python写的PDF表格提取到excel文档
python·pdf·excel·pdf文档表格转excel