作者：乔山办公网日期：
返回目录：excel表格制作
1、点选择对象；
2、鼠标左键选择范围，
3、按Del键
Sub qgrmdtj()
For Each im In ActiveSheet.Shapes
im.Delete
Next
end sub
－－度－－－－－－－－－－－－－－
我还真的不知道怎么改回进了，看看有没有高人可以。答
手动删除法，先选中黄色区域，然后按delete键
vba自动删除法
Sub 删除指定区域内容()
Range("B2:H33").Clear
End Sub
Sub s()
For Each p In ActiveSheet.Shapes
If p.Type = 13 Then
p.Delete
End If
Next
End Sub