VBA Express : CorelDraw - Toggle all Uneditable Layers

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() 
     ' This will unlock the layers
    If LayersEditable = False Then 
        ReDim EditLayers(0) 
        Call MakeLayersEditable(EditLayers()) 
        LayersEditable = True 
    Else ' Lock the layers
        Call MakeLayersUnEditable(EditLayers()) 
        LayersEditable = False 
    End If 
End Sub 
 
Public Sub MakeLayersUnEditable(ByRef EditLayers() As String) 
     ' Iterate through all the layers and make them Uneditable
    Dim objLayer As CorelDRAW.Layer, i As Long 
     
    For i = 0 To UBound(EditLayers()) 
        If EditLayers(0) <> "" Then ' Check for an empty item
            ActivePage.Layers(EditLayers(i)).Editable = False 
        End If 
    Next 
End Sub 
 
Public Sub MakeLayersEditable(ByRef EditLayers() As String) 
     ' Iterate through all the layers and make them Editable. The layers
     ' that are uneditable are collected in an array and they will be
     ' changed back later.
    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 35 times.