将形状对象添加到vba单词中的形状对象

Question

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

我得到的形状对象：

  

Dim oShape As Shape

     

oShape = ActiveDocument.Shapes（1）

我该怎么做？

谢谢，

塔尔

Answer 1

您只需使用方法Duplicate

即可

Option Explicit

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

    Set oNewShape = oShape.Duplicate

End Sub

oNewShape现在包含重复的形状。

我不确定您的意思＆＃34;文档的结尾＆＃34;，但您可以使用oNewShape正确定位它（使用.Left和.Top，或者可能.ConvertToInlineShape）