0

私の知る限り、既存のグループにシェイプを直接追加する方法はありません。したがって、私の目的は、コードによるフリーフォームの 1:1 コピーです。グループ内のフリーフォームを複製し、テンプレート形状のノードをそのフリーフォームにコピーしたいと考えています。しかし、ShapeNodes.Insert メソッドの値 X2/Y2 と X3/Y3 を取得するにはどうすればよいでしょうか? または他のヒントはありますか？

4

1 に答える 1

0

グループ内から目的の形状をコピーして、必要な場所に貼り付けることができない理由はありますか? 簡単な例:

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)
于 2014-09-01T14:59:16.297 に答える