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..

ActivePage.Layers("Document").Activate
Set sr = ActiveLayer.Shapes.All



then

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



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

ActivePage.Layers("Document").Activate
For i = 1 To sr.Count
Set s = sr(i)
' missig code to put the shapes in the layer back
Next



Have anyone a clue?

regards

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 08:07.

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