Question

我有这个问题用于删除Excel中的形状与vba。 Excel给出了这些形状的不同名称，这就是为什么我在这一行上得到错误：这里Activesheet是我的打开工作表，直接连接1是形状的名称，它被设置为“直连接器1”但是当我重用时宏无法找到。

    ActiveSheet.Shapes.Range(Array("Straight Connector 1")).Select
Selection.Delete

如果再次使用宏，则无法找到该元素。我该怎么办？

Answer 1

使用activtsheet.shapes集合

Sub connector_delete()

Dim s As Shape

For Each s In ActiveSheet.Shapes
    If s.AutoShapeType = msoShapeMixed And s.Name Like "*Connector*" Then
        s.Delete
    End If
Next s


End Sub

形状名称一直在变化，我找不到它

1 个答案: