CorelDRAW X7 Yet another annoyance with layers

Yet another annoyance with layers

Let's say you have a layer 1 and a layer 2. With layer 2 as the active layer select multiple shapes that are ALL on layer one. Group those shapes and they automatically move to layer 2 or the active layer. Why? I didn't ask for them to be moved. I simply wanted them to be grouped.

0 Giulio over 9 years ago

You have a point most time I just don't use layers
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Ronny Axelsson over 9 years ago

You're right, it can be very annoying.
In my opinion Draw should be able to remember layer position, not only when grouping but also when pasting for example.
If memory serves me, Macromedia Freehand (later bought by Adobe and sadly killed) had this already in the nineties.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Myron over 9 years ago in reply to Ronny Axelsson

Okay with Layer 2 active and all shapes on Layer 1 selected, using this code will group the shapes and retain the layer placement but activates that layer instead of leaving the active layer alone.

Sub Macro2()
If ActiveDocument Is Nothing Then End
If ActiveShape Is Nothing Then Exit Sub
If ActiveDocument.ShapeEnumDirection = cdrShapeEnumTopFirst Then
ActiveSelection.Shapes(1).Layer.Activate
Else
ActiveSelection.Shapes(ActiveSelection.Shapes.Count).Layer.Activate
End If
ActiveSelection.Group
End Sub
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Shelby Moore over 9 years ago
Myron,

Call me crazy but I actually think this is correct behavior. ;-) After all, by definition the ActiveLayer is the Layer you are working on an therefore any changes to shapes not on that Layer will be pulled to it. I know, crazy talk.

Sub GroupKeepLayer() Dim sr As ShapeRange Dim l As Layer Dim s As Shape Set sr = ActiveSelectionRange Set l = sr.Shapes.First.Layer Set s = sr.Group s.MoveToLayer l End Sub

That said, it is easy enough to code a solution.

-Shelby
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Myron over 9 years ago in reply to Shelby Moore

Awesome Shelby! I don't usually "undock" the Object Manager so I don't necessarily have the docker visible when I'm working. I have a macro to create a cut layer and once it does that becomes the active layer. So if I continue working and decide I need to group some shapes on layer 1. I don't want them to go to the cut layer. I just need them to stay on the layer they were to begin with.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel