“选择所有形状”给Excel VBA错误438 -“对象不支持此属性或方法”

Question

我有一个工作表，用于组织，样式化和汇总数据，然后复制自身并将另一个副本保存为.PDF。

在原始工作表上，有3个由形状组组成的“按钮”，用于运行不同的宏（“重置”、“修复丢失的员工”、“打印和电子邮件摘要”）。问题是在副本中删除它们。这是从录制的宏：

ActiveSheet.Shapes.Range(Array("Group 2")).Select
Selection.Delete

我想选择/删除所有形状。我不能使用“shapes.select”、“shapes.delete”或我找到的任何帮助。除了上面列出的代码之外，每一次尝试都会导致“错误438 -对象不支持该属性或方法”，并突出显示代码的这一部分。

如何选择/删除工作表/书籍中的所有形状？（使用Excel 2010）

Answer 1

这是我使用的最终解决方案：

Dim sh As Shape
For Each sh In ActiveSheet.Shapes
    If sh.Type <> msoPicture Then
        sh.Delete
    End If
Next sh

原因是因为我有一个我想要保留的形状，带有公司的标志——形状对象方法非常容易处理，因为＜code＞形状。键入属性（因为一个形状是msoPicture，其余是msorUndedRectangles）。同样有用的是，如果有一张我想删除的图片，它应该是＜code＞形状。Name指定要删除或跳过的对象。

大声呼喊@Gary的学生为我指明了这条道路！

Answer 2

您不需要选择工作表中的所有形状来删除它们。循环将执行以下操作：

Sub ShapeKiller()
    Dim sh As Shape
    MsgBox ActiveSheet.Shapes.Count
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next sh
End Sub

您可以同时删除多个Shape。这是一个找到某一行并删除所有上角在该行的Shape的示例：

Sub ShapePickerAndKiller()
    Dim s As Shape, sr As ShapeRange
    Dim Arr() As Variant
    Set mycell = Range("A:A").Find(What:=0, After:=Range("A1"))
    rrow = mycell.Row

    i = 1
    For Each s In ActiveSheet.Shapes
        If s.TopLeftCell.Row = rrow Then
            ReDim Preserve Arr(1 To i)
            Arr(i) = s.Name
            i = i + 1
        End If
    Next s

    Set sr = ActiveSheet.Shapes.Range(Arr)
    sr.Select
    Selection.Delete
End Sub

查看以前的帖子