一、工作表中有大量的细小图片对象造成文件增大,这是最常见的文件虚胖原因。可能的原因:
(1)从网页上复制内容直接粘帖到工作表中,而没有使用选择性粘帖,
(2)无意中点了绘图工具栏的直线或其他绘图对象,不知不觉中在文件中插入了小的直线或其他图形,由于很小,肉眼几乎无法看到,又通过
单元格的复制产生了大量的小绘图对象
(3)在工作表中插入了图片其他绘图对象,操作中又将其高度宽度设为0或很小的值,通过复制产生了大量的对象
(4)在行或列的位置中插入了绘图对象,对象的属性为,大小位置随单元而变的(默认的),然后隐藏行或列,或设置行高或列宽为很小的
值,从而使插入的对象不能看到
(5)工作表中的对象设置了不可见属性(Visible=false)或对象的线条和填充色均设为与底色相同,使对象无法看到
判断方法:
(1)CTRL-G,定位,定位条件中选“对象”,确定后会显示很多被选择的小对象(这种方法在隐藏列或行中的对象并不能看到)(2)用VBA对
对象进行计数,看看有多少个对象在工作表中,与你的工作表中需要的对象数量是否相符
Sub countshapes() Dim n n = ActiveSheet.Shapes.Count MsgBox "本工作表共有" & n & "个对象" End Sub
解决办法:
(1)如果确认工作表中没有你需要的对象或控件,用CTRL-G,定位,定位条件中选“对象”,确定后按DEL键删除,会删除工作表中所有的对象
(2)用VBA删除,可以根据需要删除高度或宽度小于一定值的小对象,如:
Sub delshapes()
Dim sp As Shape, n
For Each sp In ActiveSheet.Shapes
If sp.Width < 14.25 Or sp.Height < 14.25 Then
'约小于0.5cm,根据需要设定
sp.Delete
n = n + 1
End If
Next sp
MsgBox "共删除了" & n & "个对象"
End Sub
全部回复(1 )
只看楼主 我来说两句 抢板凳