如何刪除 Excel 中 autoshape 的圆框?何删除excel表里的对象?
web 其他 2019-05-22 8393 0
关于本站

“最难不过坚持”

本人承接扒站仿站,php网站维护,病毒查杀,网站编辑,网站改版,html制作

有需要网站维护,改版,病毒查杀,网站编辑,网站备案,html制作等相关的工作可以联系我。
本人有多年相关工作经验,也可提供免费咨询,交个朋友。
有需要探讨问题的朋友,也可以加我微信,共同探讨!
微信:15011482830 QQ:408917339

6282434 2594 39
最新评论
https://jueru.net/
评 留言
:weixiao:
评 留言
:shuijiao: :weiqu: :zhenbang: :leng:
评 留言
:yiwen: :yiwen: :yiwen: :yiwen:
评 EasySass: could not generate CSS file. See Output panel for details.
这个业务逻辑多少都有点奇怪了,阅读浏览次数增值在新闻详情页的控制器方法里setInc,这怎么还写进模型事件里了。如果非要用onAfterRead也可以,把新闻文章的内容单独分出来一个news_content表,然后把它和news做关联,然后给news_content表的onAfterRead事件做增值处理,这样点进新闻页内查询到文章内容时才会触发它。
评 TP6模型事件-查询后onAfterRead不好用
文章标签更多
ThinkPHP (254)
Mysql (58)
DedeCms (33)
jQuery (67)
证件照 (1)
setInc (4)
setDec (4)
onclick (5)
打开边栏(ESC) 关闭边栏(ESC)

如何刪除 Excel 中 autoshape 的圆框?何删除excel表里的对象?

可能发生在复制资料,粘贴在excel后,会出现一堆隐形的圆框。造成Excel文件特别大,运行缓慢卡死。

如图:

from clipboard

通过【查找和选择>定位条件>选择对象】点确定,可以筛选出所有对象,但在筛选出结果之前,excel多半会卡死

from clipboard怎么办呢?网上找了很多方法,都没实现,最后找到一点代码,通过宏来实现。

步骤:

方式一:Alt + F11,打开VBA窗口,插入模块,代码区域复制以下代码:

方式二:在Sheet1上右键>查看代码,打开打开VBA窗口代码区域复制以下代码:

from clipboard

VBA窗口粘贴代码后如下,按F5运行。鼠标可能会变圆圈,excel可能会显示“无响应”,然后就是等。运行完之后,关了VBA窗口。

再次通过【查找和选择>定位条件>选择对象】点确定,查找对象,会提示“找不到对象”,说明已经删了。保存excel文件,发现比原来小了不少。


from clipboard


代码如下:

Sub ds()
    Dim sh As Worksheet, shp As Shape
    For Each sh In Sheets
        For Each shp In sh.Shapes
           If sh.Shapes.Count > 0 Then
                If shp.Type <> msoPicture Then
                    shp.Delete
                End If
           End If
        Next
    Next
    ThisWorkbook.Save
End Sub



版权声明:本篇文章来源于网络。 来源链接

相关推荐
Uncaught (in promise) 的解决方法,可能原因
其他 | 2022-06-25 1076978
Uncaught (in promise) 的解决方法,可能原因;仅仅只是一种参考原因 我是因为copy的项目直接修改的,结果一直报错 Uncaught (in promise),检查发现接口请求数据已经正常返回,后来经过排查发现是在拦截器里面别人的判断是response.data.status !== 1 就算请求失败,从而Promi...
钉钉怎样设置快捷键?钉钉系统设置在哪
其他 | 2019-03-20 20939
钉钉怎样设置快捷键? 1,打开电脑端钉钉面板,点击右上角自己的头像,下拉菜单中点击系统设置 2,进入系统设置面板,下拉滚动条,找到快捷键设置
评论:0条
评论加载中...
发表评论