OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 10-05-2006, 11:40
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
Join Date: Mar 2005
Posts: 836
Default ::LayerControl:: macro for FAST layer management in CorelDraw

key shortcuts are given for example. These are similar to Photoshop's

LayerPrevious, LayerNext - Alt [, Alt ] - activate next/prev layer
LayerMoveUp, LayerMoveDown - Ctrl [ , Ctrl ] - move active layer higher/lower in layers stack
LayerFromSelected - cretae new layer with selected objects . New layer is placed above active and gets "+" in the end of layer's name
SelectLayerShapes - (key "A") selects all shapes on selected shape(s') layer(s)
SelectLayer - active layer of active shape
MoveShapesToCurrentLayer - moves selected shapes to active layer
MergeLayersToCurrent - merges layers of selected shapes to active layer
LabelLayer - (Ctrl . ) rename active shape's layer (or active layer if no shape is sel'd)
DeleteLayer - remove layer of active shape (or active layer if no shape is sel'd)
toggleLayerAutoActivation - toggles auto activation of selected shape's layer

GroupAndSaveLayers - groups shapes saving layer info in shapes' properties
UnGroupAndAssignLayers.... - smart ungroup selected group shapes and restore original layers for shapes groupped with GroupAndSaveLayers[indent]UnGroupAndAssignLayersSkip - smart ungroup and place shapes with non-existent layer to active layer
UnGroupAndAssignLayersOne - smart ungroup and place orphaned shapes to single layer "From deleted layers"
UnGroupAndAssignLayersCreateAll - recreates missing layers (in no particular order as this info is not saved now in shapes' properties and btw is it worth trying?)

1. Current layer name is visible in CorelDraw application caption (title of main window). Don't forget to UNCHECK Tools->Options->VBA->DelayLoadVBA
2. When autoactivation of shape's layer is selected: in order to perform merging you should of course first select shapes to move and last shape to select is shape on target layer, then go merge

Unpack zip with gms to C:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS\
For Corel 12: C:\Program Files\Corel\Corel Graphics 12\Draw\GMS\
Attached Files
File Type: zip showLayer.zip (20.5 KB, 1026 views)
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Problem with CopyToIllustrator macro under CorelDRAW X3 Soloway Macros/Add-ons 12 18-03-2006 22:05
Cannot use Curveworks macros in a user witten macro??? jon46089 CurveWorks 2 02-03-2006 14:18
Layer Name in CorelDraw 7.0 Jab CorelDRAW CS 2 28-10-2005 00:05
VBA help needed - changing colours fremoikaner CorelDRAW/Corel DESIGNER VBA 1 18-11-2004 06:06
New Macro / script for CorelDraw V. x acaputo1 New product ideas 4 31-08-2003 13:43

All times are GMT -5. The time now is 08:38.

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