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 

를 복제하는 방법을 사용할 수 있습니다.

난 당신이 "문서의 끝"무슨 뜻인지 잘 모르겠지만, 당신은