将形状对象添加到vba word中的形状对象

我想将我的形状对象复制到新的形状对象，将其添加到形状对象，并将其添加到文档末尾

我得到的形状对象：

形状暗淡

oShape=ActiveDocument.Shapes（1）

我该怎么做

谢谢

---

Tal

您可以简单地使用复制方法

Option Explicit

Sub DuplicateShape()
    Dim oShape As Shape
    Dim oNewShape As Shape
    Set oShape = ActiveDocument.Shapes(1)

    Set oNewShape = oShape.Duplicate

End Sub

oNewShape现在包含复制的形状

---

我不确定您所说的“文档结尾”是什么意思，但您可以使用oNewShape来正确定位它（使用.Left和.Top，或者可能使用.ConvertToInlineShape）

谢谢，但是我如何才能复制为新形状？我的意思是，在复制和更改一个形状对象后，另一个不会更改。对不起，我不明白你的意思。。要同时移动两个形状吗？