如何一次性删除AUTOSHAPE对象

wufeivsko

有EXCEL表里面有50个SHEET，每个SHEET中都有几张图片，还有几百个隐藏的AUTOSHAPE对象。如何用宏一次删除AUTOSHAPE对象。而不会删除图片。因为我用CTRL+G定位对象。然后删除图片也没有了。只想删除AUTOSHAPE

liucqa

遍历shapes
判断tynename()
然后再删

doitbest

Public Sub del()
Dim sht As Worksheet, p As Shape, ar(), n%
For Each sht In Worksheets
    For Each p In sht.Shapes
        If p.Type = 1 Then n = n + 1: ReDim Preserve ar(1 To n): ar(n) = p.Name
    Next p
    If n > 0 Then sht.Shapes.Range(ar).Delete
    n = 0
Next sht
End Sub

doitbest

请参考附件

yuno2005

doitbest 发表于 2012-2-11 20:23
Public Sub del()
Dim sht As Worksheet, p As Shape, ar(), n%
For Each sht In Worksheets

怎么用呢？请详细讲解一下。谢谢。

doitbest

只要执行宏程序就可以了

mdxzxqln

doitbest 发表于 2012-5-29 16:03
只要执行宏程序就可以了

这里的哪些参数需要修改么？我复制了代码，但是运行的时候每次多报错

doitbest

上附件看看，不好猜

ヅ叮叮ぺ嫙嵂

我还是不懂，请高人指点！！！

loveofdollar

以前我也碰到过了，在ctp_119的协助下，最终解决了。
统计对象数量：
Sub countshapes()
  Dim n As Double
  Dim ws As Worksheet
  Dim content As String
  For Each ws In Worksheets
    n = ws.Shapes.Count
    content = content & "工作表" & ws.Name & "有" & n & "个对象" & vbCrLf
    Next
    MsgBox content
End Sub

然后，一个个工作表删吧，唉……
Sub delshapes()
Dim sp As Shape, n
For Each sp In ActiveSheet.Shapes
sp.Delete
n = n + 1
Next sp
MsgBox "共删除了" & n & "个对象"
End Sub

流程是：alt+F11，然后插入第一个模块，你就可以知道，你这么多的sheet哪些是有对象的。

然后将第二段复制进去，在每一个工作表里点击F5，运行，就行了。

希望能帮到你。