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 08-11-2014, 10:09
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default Select All shapes on printable layers

Can someone please tell me how to do this? It seems I've forgotten how to code using CorelDraw VBA. Thanks.
Reply With Quote
  #2  
Old 09-11-2014, 03:11
knowbodynow knowbodynow is offline
Senior Member
 
Join Date: Mar 2006
Location: Hatsukaichi near Hiroshima
Posts: 434
Default Select All Shapes Without Activating the Page?

OK, this works if I activate each page:

Code:
Dim p As Page, l As Layer, sr As ShapeRange

For Each p In ActiveDocument.Pages


    ActiveDocument.ClearSelection
    ActiveDocument.Pages(p.Index).Activate


    For Each l In p.AllLayers
    If l.Printable = True And l.Visible = True Then
    ActiveDocument.Pages(p.Index).AllLayers(l.name).Shapes.all.AddToSelection
    End If
    Next l


    If ActiveSelection.Shapes.Count > 0 Then

    Set sr = ActiveSelection.DuplicateAsRange

    Set sr = ActiveSelectionRange

    MsgBox sr.Shapes.Count

    End If
   
Next p
But how to select objects without activating the page? Surely that's possible?
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
How check and select shapes in specfied area gebp CorelDRAW/Corel DESIGNER VBA 1 07-11-2011 00:29
Virtual layers, shapes and drawing speed jemmyell CorelDRAW/Corel DESIGNER VBA 2 06-05-2009 16:40
How to select the same color Shapes, adds whiteOutline, In ActiveDocument.Pages? sy168 CorelDRAW/Corel DESIGNER VBA 2 01-09-2008 12:18
Select Rectangles out of differnet Shapes WernerHo CorelDRAW/Corel DESIGNER VBA 2 12-01-2008 18:15
Setting Printable Layers knowbodynow CorelDRAW/Corel DESIGNER VBA 2 13-04-2006 09:38


All times are GMT -5. The time now is 01:28.


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