如何在模具中隐藏可视形状组

Question

我有一个复杂的模具，有很多小形状(第6页到第43页)，分组在一个组中(第44页)。其中也有子组。

我想使用形状表公式隐藏此组以使用用户属性。

在一个简单的形状上，我会设置：Geometry1.NoShow=表.44！user.is隐藏Miscellaneous。HideText=表单.44！user.is隐藏

但是如何使它在所有子形状中都得到继承呢？使用vba？

使用答案编辑：

感谢Jon确认除了VBA没有其他方法。这是我为所有有同样问题的人编写的VBA代码。

Call makeithidden("Sheet.164!Geometry1.NoShow", myshape)

Sub makeithidden(formula As String, ByVal myshape As Shape)
For Each subShape In myshape.Shapes
subShape.Cells("geometry1.noShow").FormulaForceU = formula
subShape.Cells("HideText").FormulaForceU = formula
Call makeithidden(formula, subShape)
Next subShape
End Sub

再见！

Answer 1

每当组获得新形状时，VBA代码都必须循环遍历所有子形状并设置该公式。公式的格式就像你的例子一样，所以做起来不会太难：

SubShp.CellsSRC(visSectionFirstComponent,0,2).FormulaU = "Sheet." & Cstr(ParShp.ID) & "!Geometry1.NoShow"

或者类似的东西，它在ParShp中的每个SubShp的循环中。形状…