Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations John Tel on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Stepping through objects, identifying attributes, storing data for lat

Status
Not open for further replies.

Mitsu

Programmer
Sep 23, 1998
22
US
Hi All,

I am just starting in VBA and this site has been a huge help! I have a task I could use some help with.

To start off with. I will be starting with graphics in Corel Draw 13 that will contain a variable amount of objects, some objects are single shapes and some may be "combined" with other objects. These objects all have no fill color but just an outline. The outlines however will be specific different colors. What I want to be able to do is step through each object, Identify what outline color it has, store that information for later, and do that for each object on the screen. The reason for the colors is so that I can select and do stuff to objects that have similar colors. I want to be able to "deselect and reselect" when ever I need to. I don't want to group them. The color is not important at all I only am using it to sort and select by since I can make sure that the shapes that I need to do the same stuff to are the same colors ahead of time.

I hope my rambling made sense.
Thanks


Mitsu1
 



Hi,

Kind of depends on the Object Model for Corel Draw 13.

Look in HELP for Object Model.

For instance, in Excel, you have...
[tt]
Application
Workbook)s)
Worksheet(s)
Range
Shape(s)
...
[/tt]
So is I were going to loop thru the shapes on a worksheet...
Code:
dim sp as shape
for each sp in activesheet.shapes
  with sp
    msgbox .name
    msgbox .type
    msgbox .left
    msgbox .top
    msgbox .width
    msgbox .height
  end with
next
You can find the Properties and Methods for a Shape Object in help.



Skip,

[glasses] [red][/red]
[tongue]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top