OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   Shaperange to Layer (http://forum.oberonplace.com/showthread.php?t=4598)

ebu 18-01-2008 16:11

Shaperange to Layer
Hello, I have a little question..

I save the shapes with..

Set sr = ActiveLayer.Shapes.All


Application.ActiveDocument.ActivePage.CreateLayer ("Document")

and would like the shapes put in the layer back..

For i = 1 To sr.Count
Set s = sr(i)
' missig code to put the shapes in the layer back

Have anyone a clue?


P.S. It make sense

wOxxOm 19-01-2008 04:35

shaperange contains only links to actually extisting shapes, so at the moment you delete the layer the SR shaperange array is invalid. You should copy the shapes first, maybe to a temporary layer.

ebu 19-01-2008 04:44

Thanks for this information.:(

All times are GMT -5. The time now is 04:42.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com