Copy Selected Objects to new page maintaining layers

[knowbodynow]

Hello,

I have the following code which copies selected objects to the next page while maintaining layers:

sub copytonext()

Dim sr As ShapeRange
Dim s As Shape

Set sr = ActiveSelectionRange

For Each s In sr
s.Layer.Activate
s.Duplicate

s.MoveToLayer ActiveDocument.Pages(ActivePage.Index + 1).ActiveLayer
Next s

End Sub

How do I change this so that the objects are copied to a new page inserted after the current page?

Thanks,

Chris (Hunt)

[shelbym]

How about something like this:

Sub CopyToNext()
    Dim sr As ShapeRange
    Dim s As Shape
    Dim p As Page

    Set sr = ActiveSelectionRange
    Set p = ActiveDocument.InsertPages(1, False, ActivePage.Index)

    For Each s In sr
        s.Layer.Activate
        s.Duplicate
        s.MoveToLayer ActiveDocument.Pages(ActivePage.Index + 1).ActiveLayer
    Next s
End Sub

Shelby

Hey !!!
Great idea, This can be very very useful. Using 'duplicate' instead of Copy makes it much much faster even for large bitmaps. Great.

Only one thing, if you can add something by which I get an option of selecting page number whiere I want it copied to. It would be far more useful. Please.

Thanx

[knowbodynow]

Thanks Shelby, that works beautifully. I had worked out something that involved
ObjectData("Name") but your method is much simpler.

Best wishes,

Chris

[knowbodynow]

Originally Posted by vindaa

Hey !!!

Only one thing, if you can add something by which I get an option of selecting page number whiere I want it copied to. It would be far more useful. Please.

Thanx

Hello, I just uploaded an attachment here:

http://forum.oberonplace.com/showthr...=8160#post8160

The macro is rough but I think (I hope) it does what you want.

Best wishes,

Chris (Hunt)

Thanx, I just tried it today. It was very thoughfull of you to add all those options.!!! Great.

For those wonking with multiple layers this will be very useful.