如何在 Visio 中使用 VBA 将形状添加到组中

Question

如何在不取消分组的情况下将形状添加到 visio 中的现有组中，因为我的组形状表中有许多自定义属性。我不希望使用它的子公式被破坏。

这是我的 VBA 代码的开头，但我找不到在组中添加形状的方法。

Sub moveToGroup(OrigineShape As Shape, DestinationGroup As Shape)


End Sub

谢谢大家的答案。

Answer 1

其实很简单！

Sub moveToGroup(OrigineShape As Shape, DestinationGroup As Shape)
    OrigineShape.Parent = DestinationGroup
End Sub

请记住不要用于Set此分配，因为这样做会产生错误。