PowerPoint 2010/VBA：将形状添加到组/ShapeNodes.Insert-Methode-如何获取X2/Y2和X3/Y3？

据我所知，没有直接的方法向现有组添加形状。 因此，我的目标是通过代码1:1复制自由形式-我想复制组中的自由形式，然后将模板形状的节点复制到该自由形式。 但是，如何获得ShapeNodes.Insert-method的值X2/Y2和X3/Y3呢？

---

或任何其他提示？

是否有某些原因使您无法从组中复制所需的形状，并将其粘贴到需要的位置？简单的例子：

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)

---

是的，史蒂夫，形状是粘贴的，但不在组内！我还没有机会玩这个游戏，但可能会取消分组（保留对组件位的引用作为一个shaperage），然后以某种方式将新形状添加到shaperage并重新分组，或者选择shaperage，然后将新形状添加到选择中，最后再次分组。