形状名称一直在改变，我无法find它

我有这个问题用vba在Excel中删除一个形状。 Excel给所有的时间不同的名称为这些形状，这就是为什么我得到这一行的错误：这里Activesheet是我的开放表和直连接1是形状的名称，它被设置为“直连接器1”，但是当我重用macros找不到。

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

如果我再次使用macros，它不能find元素。 我该怎么办？

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