I'm sure there are many of you out there that at least every once in a while struggle to match a certain color - as CLOSE as possible. You can tweak your RIP settings, color management settings, etc but often I find myself just generating some random color samples to get the closest color. I have CMYK charts printed off, but they are only going to show so many colors, you know? What I am looking for (and will pay good money for, too - Nazdar's Catzper software does something along these lines, but is much too complex with Lab values, etc and lists for $295) is a macro that will take a color swatch and generate a bunch of other color swatches (maybe by user preference?) just adding and subtracting C M Y K - you print this off and pick the closest color! Thereby making it a 1-step operation instead of back-and-forth many-step operation. I have to admit, we are very picky about matching colors here.
I have attached a free macro to change the text color of cells in a table. Without the macro there is currently no way to select more than one cell and change the text color.
The macro allows the user to either:
click on a table (to select it) and then apply a new color to ALL text in the table; or choose a new color from the macro from, select some cells in a table and then apply that color to the text in those selected cells
Please note in step 2 it is important you choose the new color first and then select the table cells. If you do it the opposite way around, while choosing a colour you will deselect the selected cells and apply color to all of the text in the table.
What I am trying to do is check if a shape does not match a known set of values. If it does not it will run code where the "If msgbox" is at. What I have works if my line or object has a Cyan outline. The issue I am having is when it is checking a line that is any other color that doesn't have Cyan = 100, it errors out.
Below is what I am trying to use.
Sub Start() Dim s As Shape Dim sr As ShapeRange ' ActivePage.Shapes.All.CreateSelection Set sr = ActiveSelectionRange For Each s In sr If s.Type = cdrTextShape Then GoTo s_A If s.Outline.Color.CMYKCyan = 100 Then GoTo s_A If MsgBox("dude", vbOKCancel) = vbCancel Then GoTo s_B s_A: Next ss_B:End Sub
Now that SP2 is out and we can delete all in one sweep, is it possible to create a macro that would automatically delete all color styles as soon as any file is open? I never use that feature and would gladly pay for such a macro.
I saw a macro that does this a while ago, but I could very well be wrong. If it doesn't already exist, I am not even sure if it is possible, so I thought I'd ask the Macro Masters here!
Lets say I have a page fill of objects/shapes/text with all sorts of different colors.
I select the black color (or whatever color) but would actually like to select ALL colors other than the black color that I have selected.
So, if I have a page with Black, Red, Green & Blue shapes, I select an object colored black, the macro would then select ALL objects/text on the page that are NOT black.
Is it possible yet to do this? I'd like to pick several points on the screen and get the color from each spot separately.Current System: i3 3.07ghz, 3gb ram, Windows 7 32 bit with all updates and X6
I think I need to change the cdrTextPropertyFill using cdrTextPropertySet. If you look at the Property Manager Window with Artistic Text selected go to the 5th tab (format). On the bottom is background color: with two drp downs. One for textbox background and one for character background.
I would like to be able to change these settings in a macro. I think this line is finding the text on the graphic, now I need to change the background.
My CorelMacros.CreateColorSwatch macro has stopped dumping the swatches into whatever blank Letter-sized document I have open (which is how it used to work) and instead it is creating a new document, at 4.25" wide x 7" high, and dumping the swatches into that. Using Pantone Solid Coated, but it's doing this regardless of what palette I choose.
There is no option in the Macro's dialog box to alter or even instantiate a page size, and I cannot find in the code of the macro where to set this variable.
How can I change the horizontal line color of a table (not the border line color)? I would like the border to be black, but the horizontal lines to be gray.
When exporting documents to PDF I have to fill in my company's name and address into CorelDRAW's PDF export Author field over and over and over and over again ...
I'm pretty sure that Author information is a more stable information than any other PDF parameter that's already being persisted by CorelDRAW.
save the Author field's information along with the other parameters so that it's getting recalled whenever the PDF export dialog pops up. The currently used Windows login name is not useful at all.
CorelDRAW Graphic Suite X6.4 @ Windows 7/Windows 8 - 64 Bit, Windows Server 2008 R2, Windows Server 2012
When I start CorelDraw x6 there cames a message that I must log in for installing the WebsiteCreator. But when i do this I am logged in but nothing more.
Is there a way to setup vertical alignment of text in a cell for the entire table, when using Table Tool? It is possible for a single cell, but when selecting a table (or multiple cells) this option is not available.
I need to place HTML code so that I can get a blogtalkradio graphic link onto my website. Can't figure out how to place the code so it will display the graphic.
I was wondering what is the best way to save a photoshop file such as a business card or stationary labels so they "KEEP" their color you see on screen.
I am already building in CMYK mode. My Client has a nice gray scale scheme but I am worried that the print shop will mess up the colors.
How do I create a custom set of colors and adhere to that scheme throughout the clients stationary and media. ie. Cards, Labels, Signs, etc.
Is there an option to print a color scale along with the image, sorta like when you calibrate your printer?
This is a macro I've been working on for a few days, what it does is it applies the selected transformation to each one of the selected objects individually. It rotates, scales and flips in both axes. I think this is a simple but useful workaround to the fact that Corel doesn't have a native command that does this.
I have a VB script that I created in excel that does a number of things. At some point I want it to open a series of variable Draw documents based on names and paths from columns in an excel document. This part works fine. However, I also want to perform a macro, created in CorelDraw, on said files once opened. This macro also works fine. The issue I am having is getting Excel to tell Draw to run the macro. I wrote the line with the same syntax I would use for telling excel to run a Word macro. IDK.
Set CorelDrawApp = CreateObject("CorelDraw.Application.15") CorelDrawApp.Visible = True Dim i As Long
I work in a trophy shop running laser engravers. I'm looking for a macro that would select everything on a page, flip it vertically, and do so throughout a multi-page document - I just had to do that manually for an order of 236 acrylics (all in one multi-page file!) and it - well - was a bit tedious I can make a macro to select all and flip - but I'm lost when it comes to getting it done throughout a file, I can only get it to do that a page at a time.
so I've recorded a macro to find all drop shadows and seperate them from whatever they're attached to. Now my problems is how to deselect the objects leaving just the drop shadows selected
Sub Macro173() ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), ' ActiveLayer.Shapes(1)).Cut ActiveLayer.Paste Dim Paste1 As ShapeRange Set Paste1 = ActiveSelectionRange ActiveDocument.Undo ActiveDocument.Undo ActivePage.Shapes.All.CreateSelection ActiveSelection.Separate End Sub
I want to take the current document, convert to PDF using a profile I have saved, then create a new email message in Microsoft Outlook, attach the PDF that saw just created, and use the file name as the subject of the email (minus the file extension).
Bonus points for also selecting a signature that I have in Outlook. I know the PDF creation can happen, and I know I can save the file name to be passed on, but can I access Outlook from CorelDraw?
Current System: i3 3.07ghz, 3gb ram, Windows 7 32 bit with all updates and X6
use the interactive contour to create an inline. Cntrl+k (break apart). It works but leaves both selected. Now what I need it to do is deselect the outer rectangle leaving me with just the inner one still selected.
I have a macro that saves a file to a temp directory. Is it possible to use a macro to just "copy" that file to the clipboard and stop? I just want it available in the cliboard so I can navigate to where I want it then paste it. I then rename it. The directory will always be different as will the file name.
I am working on creating a macro we can save with a template to ready the designed art for print. So the designer can create the design, run this macro and export a PDF. The macro needs to:
1. Turn off template layer.2. Select all objects layer 1.3. Group all objects layer 1.4. Rotate -90 degrees.5. Set layout to landscape.I have everything working except the Select all "Objects Part". the macro will only select objects that are there during the creation of the macro, and not select the designed work.
Is there anyway to just add a keystroke of "Ctrl+A" to the macro?
Here is the macro i got: ____________________________________________________________________
Sub Adstand_Rotate() ' Recorded 5/17/2012 ActivePage.Layers("Template").Visible = False Dim s1 As Shape Set s1 = ActiveLayer.CreateRectangle(0#, 70#, 39.75, 0#) s1.Fill.ApplyNoFill s1.Outline.SetProperties 0.006945, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=45# s1.Outline.SetNoOutline s1.Rotate -90# Windows.FindWindow("C:Documents and SettingsdreesdmDesktopAd Stand Template.cdr").ActiveView.SetViewPoint 35#, 19.875, 100 With ActiveDocument.MasterPage .SetSize 39.75, 70# .Orientation = cdrLandscape .PrintExportBackground = True .Bleed = 0# .Background = cdrPageBackgroundNone End WithEnd Sub ____________________________________________________________________
