vba - 太多的形状会减慢代码的速度

Question

我有一张约有600种形状的纸张。

其中一个（只有一个）被分配给一个打开简单用户形式的宏。

当我点击它时，打开用户表单需要花费太多时间。

当我删除所有其他形状时，它打开得更快。

我非常感谢您帮助解决这个问题。

提前谢谢。

Answer 1

每次运行代码时，都只会隐藏形状。有帮助。

Function ShapeNichtSehen(True_or_False As MsoTriState)
Dim Sh As Shape
   For Each Sh In Shapes
      Sh.Visible = True_or_False
   Next Sh
End Function