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

Question

据我所知，没有直接的方法可以将形状添加到现有组中。所以我的目标是通过代码 1:1 复制自由形式 - 我想在组中复制自由形式，然后将模板形状的节点复制到该自由形式。但是我怎样才能得到 ShapeNodes.Insert 方法的 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)