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 04-04-2007, 17:09
mick classen
Guest
 
Posts: n/a
Default auto enter color names

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
Reply With Quote
  #2  
Old 04-04-2007, 18:02
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

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?
Reply With Quote
  #3  
Old 04-04-2007, 20:29
mick classen
Guest
 
Posts: n/a
Default

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.
Reply With Quote
  #4  
Old 04-04-2007, 20:35
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

:-) still not getting the details:
1. where to paste?
2. why not use "ColorStyles" docker? - it tracks all used colors
Reply With Quote
  #5  
Old 04-04-2007, 22:12
mick classen
Guest
 
Posts: n/a
Default

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.
Reply With Quote
  #6  
Old 04-04-2007, 22:23
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

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
Reply With Quote
  #7  
Old 05-04-2007, 06:46
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 520
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

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...
Attached Images
 
Attached Files
File Type: gms PlateColors.gms (50.5 KB, 194 views)
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.

Last edited by ddonnahoe; 05-04-2007 at 06:52.
Reply With Quote
  #8  
Old 05-04-2007, 14:00
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 520
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

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
I have also posted a picture of how to apply Registration Color...
Attached Images
 
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #9  
Old 05-04-2007, 17:16
mick classen
Guest
 
Posts: n/a
Default

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?
Reply With Quote
  #10  
Old 06-04-2007, 06:50
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 520
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default

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.
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
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


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


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