![]() |
|
#1
|
|||
|
|||
|
Hi: In our business we have to type out the colors used in our artwork. Has anyone created a macro that will type in the color's name when an object in the drawing is selected?
Thanks, and any help would be appreciated. Mick |
|
#2
|
||||
|
||||
|
I haven't heard of such a macro, but why wouldn't you provide some screenshots (created by hand) or sketches that explain what's it all about?
|
|
#3
|
|||
|
|||
|
When you fill an object, and select it - the color name is displayed in the status bar. What I want to do is to enter that name automatically in my artwork.
Typically we can have many colors and we want to create our own palettes with unique names, a macro that would paste the names would increase our efficiency and accuracy. I hope I'm explaining my wish correctly. |
|
#4
|
||||
|
||||
|
:-) still not getting the details:
1. where to paste? 2. why not use "ColorStyles" docker? - it tracks all used colors |
|
#5
|
|||
|
|||
|
I run a sign shop. Each job we create is typically made up of 3-6 colors. In order for our production people to promptly create the product they need to know what materials are required. For example: one part of the job may be a red that we will call cardinal red (the name of one of our standard vinyl colors). We may also have another red, possibly tomato red (another one of our standard vinyl colors) and there may be a couple of different blues, also with a name that is the same as our stock vinyl colors.
The artist creates the design. Below the design we create small square boxes that are filled with each color used. Four colors, four boxes. Beside each box we type the name of the vinyl to be used. This is what we want to enter with a macro. We have a custom palette that has all of our vinyl colors in it. And as I mentioned before, the color name that appears in the status bar (when we select one of these boxes) is what we want to paste. We select the box and with a keystroke we want to paste its name beside it. |
|
#6
|
||||
|
||||
|
I believe there is LimitColors.Posterize macros created by Alex here on www.oberonplace.com that does exactly what you want, try it - http://www.oberonplace.com/vba/drawm...itcolorssh.htm
|
|
#7
|
||||
|
||||
|
If LimitColors.Posterize doesn't work for you, I have created a macro that marks up my artwork with swatches and color names based on PMS colors. With a little modification, I'm sure you could get it to work for you.
It first checks for "Registration marks". I usually keep these marks in all my templates. If you create a small box somewhere on your page and assign it Registration Color, then the macro should run fine. You'll see what I mean when you run it... I'll post a screenshot of what I'm talking about...
__________________
Sean Waiting for a ride in the T.A.R.D.I.S. Last edited by ddonnahoe; 05-04-2007 at 06:52. |
|
#8
|
||||
|
||||
|
Below is some simple code to create Registration marks before running the PlateColors macro...
Code:
Sub RegistrationColor()
Dim s As Shape
Set s = ActiveSelection.Combine
s.OrderToBack
s.Outline.Width = 0
s.Fill.UniformColor.RegistrationAssign
s.Name = "PlaceHolder"
End Sub
__________________
Sean Waiting for a ride in the T.A.R.D.I.S. |
|
#9
|
|||
|
|||
|
In your first attached image it shows two registration marks and the colors. That's exactly what I want to do. I've followed the instructions, but the registration marks are still not recognized.
I'm not clear what I should do with the code you submitted after you posted your gms file. As you can see I am stuck, but it seems so close. What am I missing? |
|
#10
|
||||
|
||||
|
Sorry, slip of the mind (I must be getting old). In the Object Manager Docker, rename the Registration colored object to "PlaceHolder" (without the quotes). The macro actually looks for this named shape. If you create your objects, then run the small amount of code that I posted above, It will create this "PlaceHolder" for you.
Let me know if this helps.
__________________
Sean Waiting for a ride in the T.A.R.D.I.S. |
![]() |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Saving File while auto generating Jpg files | vindaa | Macros/Add-ons | 16 | 03-01-2007 19:44 |
| auto date | anil_gopalan | General | 1 | 29-12-2006 07:38 |
| Auto Equalize won't funtion on images 55mbs+ | Ralph Simmons | General | 1 | 06-11-2006 14:57 |
| auto entering data from a databas into corel x3 | mick classen | CorelDRAW/Corel DESIGNER VBA | 4 | 30-10-2006 11:05 |
| Auto keyboard switch - WHERE is it? | corel9master | CorelDRAW/Corel DESIGNER VBA | 3 | 31-03-2004 13:06 |