如何在 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用于此作业，因为这样做会产生错误。