View Single Post
  #1  
Old 18-01-2008, 16:11
ebu
Guest
 
Posts: n/a
Default 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
Reply With Quote