Visio의 VBA를 사용하여 그룹에 모양을 추가하는 방법

Question

내 그룹 셰이프 시트에 많은 사용자 지정 속성이 있으므로 그룹화하지 않고 의 기존 그룹에 셰이프를 추가하는 방법은 무엇입니까? 내가 부 식을 사용하여 subformulas 싶지 않아.

여기 내 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을 사용하면 안됩니다.