VBAワードのシェイプオブジェクトにシェイプオブジェクトを追加する

Question

シェイプオブジェクトを新しいシェイプオブジェクトに複製し、シェイプオブジェクトに追加してドキュメントの最後に追加したいとします。

私が取得する形状オブジェクト：形状など

薄暗いoShape

oShape = ActiveDocument.Shapes（1）

私はそれをどのように行うことができますか？

おかげで、

タル

Answer 1

は、あなたは、単にoNewShapeは今重複図形を含む

Option Explicit 

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

    Set oNewShape = oShape.Duplicate 

End Sub 

を複製する方法を使用することができます。

私はあなたが「文書の最後」によって何を意味するかわからないが、あなたは（.LEFTと.Top、または多分.ConvertToInlineShapeを使用して）それを正しく配置するoNewShapeで作業することができ