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