OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 11-03-2004, 10:58
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default Unlocking objects

Does anyone know how to unlock any and all objects via VBA with out having to select the object before running the script? I would like the script to find all locked shapes and unlock them. This is what I have so far...
Code:
Sub GlobalUnlock()
    Dim s As Shape
    Dim p As Page
    For Each p In ActiveDocument.Pages
        For Each s In ActivePage.Shapes
            With s
                .CreateSelection
                .Locked = False
            End With
        Next s
    Next p
End Sub
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #2  
Old 11-03-2004, 11:21
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: Unlocking objects

You can use Page.UnlockAllShapes in CorelDRAW 11/12:

Code:
ActivePage.UnlockAllShapes
Or in CorelDRAW 12 you can use ShapeRange.Unlock method which can be used to unlock only some objects:

Code:
ActiveLayer.Shapes.All.Unlock
Reply With Quote
Reply


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
Find objects by properties Webster CorelDRAW/Corel DESIGNER VBA 8 01-12-2004 19:51
Need help accessing objects in a group ama CorelDRAW/Corel DESIGNER VBA 5 20-02-2004 12:28
Converting objects color properties jwknight CorelDRAW/Corel DESIGNER VBA 1 23-10-2003 11:03
replace objects of certain color jwknight CorelDRAW/Corel DESIGNER VBA 3 14-08-2003 13:43
I need to update objects visibility faster NEHovis Corel Photo-Paint VBA 0 18-07-2003 08:54


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


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