PowerPoint 2010/VBA : 그룹/ShapeNodes에 모양 추가. 삽입 - Methode - X2/Y2 및 X3/Y3은 어떻게 구할 수 있습니까?

Question

내가 아는 한 기존의 그룹에 도형을 추가하는 직접적인 방법은 없습니다. 내 목표는 코드를 통해 자유형의 1 : 1 사본입니다. 그룹에서 자유형을 복제 한 다음 템플릿 모양의 노드를 자유형으로 복사하려고합니다. 그러나 ShapeNodes.Insert-method에 대해 X2/Y2 및 X3/Y3 값을 얻으려면 어떻게해야합니까? 다른 힌트가 있습니까?

Answer 1

원하는 모양을 그룹 내에서 복사하여 필요한 곳에 붙여 넣을 수없는 이유가 있습니까? 간단한 예 :

Dim oGroupShape As Shape 
Dim oSh As Shape 

Set oGroupShape = ActivePresentation.Slides(1).Shapes(1) 

oGroupShape.GroupItems(3).Copy 

Set oSh = ActivePresentation.Slides(1).Shapes.Paste(1)