OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 01-07-2014, 23:55
vindaa vindaa is offline
Member
 
Join Date: Aug 2006
Posts: 91
Default select object with same angle

I have several Rectangles with different angle of rotation, How can I select all rectangles with same angle of rotation.
Is it possible
I mean If I select a Rectangle, I want the script to select all the rectangle with same angle of rotation
Reply With Quote
  #2  
Old 09-07-2014, 05:21
shark shark is offline
Senior Member
 
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 146
Default

Code:
Private Sub SelectSameAngle()
Dim sr As ShapeRange, s As Shape, cs As Shape
    Set cs = ActiveShape: If cs Is Nothing Then Exit Sub
    Set sr = New ShapeRange
    For Each s In ActivePage.Shapes.FindShapes(Query:="@type = 'rectangle'")
        If s.RotationAngle = cs.RotationAngle Then sr.Add s
    Next
    sr.CreateSelection
End Sub
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
while a macro is running, select one object MikeVerDuin Macros/Add-ons 1 16-02-2011 09:11
Select Object and VirtualShape shelbym Code Critique 5 18-02-2009 01:35
Select object admold CorelDRAW/Corel DESIGNER VBA 3 08-10-2008 02:23
I need print select object with my printer and my parameters. ajacques CorelDRAW/Corel DESIGNER VBA 1 20-03-2006 08:09
How to select object inside another object jukos General 4 24-10-2005 21:27


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


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