删除所有具有特定名称的对象

Question

我正在寻找更好的解决方案来解决在 MS Excel 和 Libre Office Calc 之间转换文件时出现的问题。

有关错误描述，您可以查看https://ask.libreoffice.org/en/question/19176/infinite-white-boxes/，它有一个对我不起作用的解决方案，因为它隐藏了太多。

我写了一个丑陋的函数，它可以工作，但在极少数情况下会崩溃 excel：

Private Sub DelCustomShapes_Click()
Dim objDrawingObject As Object
1:
For Each objDrawingObject In Tabelle1.DrawingObjects
    If objDrawingObject.Name = "CustomShape 1" Then
        objDrawingObject.Delete
        GoTo 1
    End If
Next objDrawingObject
End Sub

如果我省略有问题的 Goto，那么一旦第一个对象被删除，Next 将无法工作，并且我收到一条错误消息+我需要调用该函数超过 100 次才能摆脱所有白框。 如何以不太难看的方式删除具有一个特定名称的所有对象？

Answer 1

我无法根据 etabs v21 中的截面属性选择框架和墙壁，然后删除选定的框架和墙壁。谁能向我建议使用 Excel VBA 代码来完成此操作的代码