API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.Copy method
Copies the shape to the Clipboard
Syntax:
Sub Copy()
Remarks:
The Copy method copies a shape to the Clipboard.
Examples:
The following VBA example copies each shape from the active page to a separate page in a new document.
Sub Test()
Dim s As Shape, bAddPage As Boolean
Dim doc1 As Document, doc2 As Document
Set doc1 = ActiveDocument
Set doc2 = CreateDocument()
bAddPage = False
For Each s In doc1.ActivePage.Shapes()
  s.Copy
  If bAddPage Then doc2.AddPages 1

 doc2.ActiveLayer.Paste

 bAddPage = True
  Next s

End Sub