在VBA Word中將形狀對象添加到形狀對象

Question

我想將形狀對象復制到新的形狀對象，將其添加到形狀對象並將其添加到文檔末尾。

我得到的形狀對象：

形狀不一樣的形狀

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現在包含重復的形狀。

我不確定“文檔末尾”是什么意思，但是您可以使用oNewShape正確定位它（使用.Left和.Top或.ConvertToInlineShape）