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

【问题标题】：How to add a shape to a group with VBA in Visio如何在 Visio 中使用 VBA 将形状添加到组
【发布时间】：2016-02-07 23:00:12
【问题描述】：

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

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

Sub moveToGroup(OrigineShape As Shape, DestinationGroup As Shape)


End Sub

谢谢大家的回答。

【问题讨论】：

【解决方案1】：

其实很简单！

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

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

【讨论】：