vba - 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エラーが発生するため、この割り当てには使用しないでください。