OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 27-09-2004, 14:06
Rick Randall
Posts: n/a
Default Deleting Shapes on the Guides Layer


I have hundreds of .cdrs that have shapes on the Guides Layer. These shapes are all locked. I am trying to write a macro that can simply delete all shapes on the Guides Layer. For some reason I am having trouble unlocking, and then deleting these shapes.

Help! :cry:
Reply With Quote
Old 27-09-2004, 20:29
Alex's Avatar
Alex Alex is offline
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: Deleting Shapes on the Guides Layer


Here is a piece of code to delete all objects from the Guides master layer in the current document (for CorelDRAW 12):

Sub DeleteShapesFromGuides()
    Dim s As Shape
    Dim lr As Layer
    Set lr = ActiveDocument.MasterPage.Layers("Guides")
    For Each s In lr.Shapes
        If s.Locked Then s.Locked = False
    Next s
End Sub
Reply With Quote
Old 28-09-2004, 12:07
Rick Randall
Posts: n/a

worked like a charm! Thanks!!
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
existence of layer modzho CorelDRAW/Corel DESIGNER VBA 7 04-09-2008 14:37
VBA help needed - changing colours fremoikaner CorelDRAW/Corel DESIGNER VBA 1 18-11-2004 07:06
Transfer shapes from Draw to Paint; Using CorelScript in VB6 DWGraphics Corel Photo-Paint VBA 1 18-08-2004 21:49
Bounding Guides, with & without Outlines Hernán New product ideas 0 21-01-2004 11:59
Generic code to process all shapes in a document glennwilton CorelDRAW/Corel DESIGNER VBA 0 05-09-2003 04:13

All times are GMT -5. The time now is 19:31.

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