Excel VBA: 一键删除表格中所有图形、图片

Excel表格中插入图形、图片，有时能增强可读性，但插入过多难以管理，而且会导致Excel文件过大，打开速度明显变慢。如果不想再保留这些图形、图片，可以使用以下VBA宏一键删除表格中所有图形、图片，包括隐藏的图形、图片。

直接上代码：

Sub DelAllShapes()
''' delete all shapes in the workbookDim sht As WorksheetDim shp As ShapeDim m&, n&m = 0n = 0For Each sht In ActiveWorkbook.SheetsDebug.Print sht.Name & ": " & sht.Shapes.Countsht.UnprotectFor Each shp In sht.Shapesm = m + 1On Error Resume NextErr.Clearshp.Locked = Trueshp.Visible = msoTrueshp.DeleteIf Err.Number <> 0 Thenn = n + 1Debug.Print ("Error # " & Err.Number & " is generated by " & Err.Source & ": " & Err.Description)End IfOn Error GoTo 0NextNextDebug.Print "Totally " & m & " Shapes, " & n & " failed."End Sub

当然，也可以增加对Shape.Type的判断，来删除指定类型的Shape。

Excel VBA: 一键删除表格中所有图形、图片相关推荐

excel WPS批量删除表格中某一列为空的行数据
面试一点通丨模拟面试模拟笔试,跳槽.升职.加薪.换更好工作必备微信小程序神器. 如下截图Excel,我们想删除E列为空的行数据(即黄颜色的行数据),如何批量操作呢: 1.鼠标左键选中E列. 2.键盘 ...
excel删除无尽空白行_Excel2019如何批量删除表格中的空白行？
在使用Excel2019编辑文档的时候,在表格中有很多的空白行如何批量的把这些空白行给删除掉呢 Excel2019如何批量删除表格中的空白行? 首先在电脑上用Excel2019打开要编辑的表格,可以看 ...
Excel如何一键删除重复行？Leo老师告诉你
在工作学习中,我们经常会遇到Excel如何一键删除重复行这样的问题.哥白尼说过:人的天职在勇于探索真理.因此,面对Excel如何一键删除重复行我们应该有努力探索的精神.与你内心最贴近的东西,切莫等闲视 ...
Excel.VBA 快速删除重复记录
Excel.VBA 快速删除重复记录日常工作中的工作表中经常会有重复记录,清除这些重复记录是一个繁琐的工作,即使在排序之后再进行手工筛选,也经常会出现遗漏,而使用VBA代码就可以快速准确地删除重复记 ...
Excel如何一键删除数据区域的空白整行？
今天要和大家分享的是,Excel如何一键删除数据区域的空白整行?比如下图中的第4行和第7行,不用一行一行的删除,直接-- (方方格子插件) 1.先看动图演示吧 2.开始之前先选中数据区域 3.然后 ...
Word中删除双删除线的内容和删除表格中的空白行
这周四开会,发现部门的需求文档里,都是没用的双删除线,完全没有用途,几百页的文档里充斥了这样的垃圾,让我看着很不爽,所以就写了VBA程序来把这些内容删除了,试了试还不错.代码如下: Function ...
dtgrid 手动条件删除表格中的某一行
dtgrid 手动条件删除表格中的某一行 var grid = $.fn.DtGrid.init(dtGridOption);$(function () {grid.load();});functio ...
js动态删除表格中的某一行
js动态删除表格中的某一行 <!DOCTYPE html> <html lang="en"> <head><meta charset=&q ...
使用js删除表格中的一行的一个小练习
代码: <!DOCTYPE html> <html lang="ch"><head><meta charset="UTF-8&q ...

Excel VBA: 一键删除表格中所有图形、图片

Excel VBA: 一键删除表格中所有图形、图片相关推荐

最新文章

热门文章