Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.Copy
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.Copy |
Sub Copy()
Member of ShapeRange
The Copy method copies all the shapes in a shape range to the Clipboard.
The following VBA example copies, page by page, all the shapes from the current document into a new document.
Sub Test() |
Dim p1 As Page, p2 As Page, bAddPage As Boolean |
Dim doc1 As Document, doc2 As Document |
Set doc1 = ActiveDocument |
Set doc2 = CreateDocument() |
bAddPage = False |
Set p2 = doc2.Pages(1) |
For Each p1 In doc1.Pages |
p1.Activate |
p1.Shapes.All.Copy |
If bAddPage Then Set p2 = doc2.AddPages(1) |
p2.ActiveLayer.Paste |
bAddPage = True |
Next p1 |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.