|
|
|
|
|
|
CorelDraw
|
Toggle all Uneditable Layers
|
|
Ease of Use
|
Easy
|
Version tested with
|
2005 (X3)
|
Submitted by:
|
malik641
|
Description:
|
These procedures will turn off all layers in a CorelDraw document, storing them to an array. Then it will return the Locked layers back to locked.
|
Discussion:
|
If you have borders (title blocks) in CorelDraw that are locked and you need to edit them, this could be quite useful. It lets you unlock all the Locked layers, edit what you need, then lock them again. It's much easier than to go into the Object Manager to manually unlock all the layers you need to and go back later to re-lock them. Especially if you forget which ones you've unlocked.
|
Code:
|
instructions for use
|
Option Explicit
Public EditLayers() As String
Public LayersEditable As Boolean
Public Sub ToggleLayers()
If LayersEditable = False Then
ReDim EditLayers(0)
Call MakeLayersEditable(EditLayers())
LayersEditable = True
Else
Call MakeLayersUnEditable(EditLayers())
LayersEditable = False
End If
End Sub
Public Sub MakeLayersUnEditable(ByRef EditLayers() As String)
Dim objLayer As CorelDRAW.Layer, i As Long
For i = 0 To UBound(EditLayers())
If EditLayers(0) <> "" Then
ActivePage.Layers(EditLayers(i)).Editable = False
End If
Next
End Sub
Public Sub MakeLayersEditable(ByRef EditLayers() As String)
Dim objLayer As Layer, i As Long
For Each objLayer In ActivePage.Layers
If objLayer.Editable = False Then
ReDim Preserve EditLayers(i)
EditLayers(i) = objLayer.Name
objLayer.Editable = True
i = i + 1
End If
Next
End Sub
|
How to use:
|
- In CorelDraw, Press Alt+F11 to open the VBE.
- Select your GMS (global macro storage) OR your document's project in the Project Window.
- Click Insert --> Module
- Copy code and paste in the new Module
- Close the VBE, return to CorelDraw
- Press Tools --> Visual Basic... --> Run...
- Select ToggleLayers
|
Test the code:
|
- First be sure to check if Window --> Dockers --> Object Manager is CHECKED
- In CorelDraw, select Tools --> Visual Basic... --> Run... --> ToggleLayers
- Watch the layers in the Object Manager window
|
Sample File:
|
ToggleLayers_CorelDraw.zip 8.94KB
|
Approved by mdmackillop
|
This entry has been viewed 56 times.
|
|