vba - 在没有.Select 的情况下在Word 2010 中复制形状？

Question

是否可以在不使用 .Select 的情况下复制 Word 2010 中的形状？根据Dev Center Anchor 属性返回形状的锚定范围。这可能是一种前进的方式吗？但是，下面的代码会返回错误。

Sub createShape()
    Set myShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1)
    myShape.Anchor.Copy
End Sub

Answer 1

虽然似乎无法在不选择形状的情况下复制形状，但可以复制形状而不选择它(这就是我最初想要复制它的原因).下面的代码给了我我正在寻找的东西:

Sub createShape()
    Set myshape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)
    Set anothershape = myshape.Duplicate
End Sub