我想从我的工作表中删除所有形状。他们的身份证是一样的。
我发现了两个密码:
第一项:
Public Sub ActiveShapes()
Dim ShpObject As Variant
If TypeName(Application.Selection) = "Firestop" Then
Set ShpObject = Application.Selection
ShpObject.Delete
Else
Exit Sub
End If
End Sub
不起作用。没有错误,但也没有反