|
|
◆ 网页平面多媒体培训、认证考试免费咨询热线:400-700-5807 进入网络咨询平台 ◆
误设单元格格式或者条件格式
如果确认在工作表中存在大量的对象，而用户并不需要它们，可以用两种方法来处理：
（1）刚才的定位方法中，当对象全部处于被选择状态时按键删除它们即可。
（2）使用宏在多个工作表中更加精确地删除这些无用对象。比如，可以根据需要只删除高度和宽度都小于14.25 磅（0.5 cm）的对象。
只删除活动工作表中特定大小的对象的代码为：
Sub DelShapes()
Dim sp As Shape, n
For Each sp In ActiveSheet.Shapes
If sp.Width < 14.25 And sp.Height < 14.25 Then
sp.Delete
n = n + 1
End If
Next sp
MsgBox "共删除了" & n & "个对象"
End Sub
删除所有工作表中的特定大小的对象的代码为：
Sub DelAllShapes()
Dim ws As Worksheet
Dim sp As Shape
Dim n As Double
Dim Content As String
For Each ws In Worksheets
For Each sp In ws.Shapes
If sp.Width < 14.25 And sp.Height < 14.25 Then
sp.Delete
n = n + 1
End If
Next
Content = Content & "工作表" & ws.Name & " 删除了" & n & " 个对象" & vbCrLf
n = 0
Next
MsgBox Content
End Sub
这些令人疑惑的对象的产生原因可能有以下几个。从网页上复制内容后直接粘贴到工作表中，而没有使用选择性粘贴。无意中使用绘图工具栏的直线工具或其他绘图工具，不知不觉中在工作表中插入了小的直线或其他图形对象，由于尺寸很小，于肉眼几乎无法看到。而后，又通过单元格的复制产生了大量的小绘图对象。在工作表中插入了图片或其他绘图对象，操作中又将其高度宽度设为0 或很小的值，通过复制产生了大量的对象。 上一页 [1] [2] [3] 下一页
 【责编:Luzi】 |
|
|
 |
|
 |
|
2008-2-13 
相关文章