TransformEach.gms
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.
[URL]....
How to run a macro through all the pages at a single instance in a malty page document.
View 3 Replies View RelatedI 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
[Code]....
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.
View 14 Replies View RelatedSanM_ExportToJPG.zip
A few days ago I remembered about my old macro Export To JPG, and I updated this one for CorelDRAW X5. This is not perfect macro.
Macros and tools for CorelDRAW @cdrpro_ru
I have downloaded a Free vector (.cdr) file which was designed using RGB color. This files has 100's of objects that are in color with RGB..
Is there a way to convert the RGB color's to cmyk without having to do each one by hand?
Maybe some kind of "Macro?
I need to do this because I am going to have this design printed on a T-Shirt and the printer uses "CMYK 4-Color Process" for their printing.
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
Macro or vba code to change art and frameText in draw x5. Some resoruces to learn beginners coding ?
View 5 Replies View RelatedI am looking for a macro to export EPS files to a designated folder.
select ability to export a number of pages in one hit.
ability to add the page name, file path as an eps naming convention (saves me renaming).
set the character allowed in in the filename.
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
Draw a rectangle. Record macro
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.
View 6 Replies View RelatedI have created a macro that create company logo and file name path to all page.
But when document page is more than about 10-15 or more macro stops responding and coreldraw x6 hangs.
I know I am able to transform and object by typing feet (') and inches(") ex. 5' 6" but is it possible to display both? I know I can get it to display feet or inches but it always completes with a decimal. Is there a work around for this?
View 7 Replies View RelatedI 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
____________________________________________________________________
Is this something easy I can do? Have my Macro Auto Open Upon Start Up?
Okay, so the simple macro i have been working on isnt just for personal use. We will use this macro all day long - but the issue is - my coworkers im sharing the macro with would prefer the macro open when program opens.
Now that i had set the macro's position down - how do i got about having the macro auto open upone start up.
trying to write a macro to open to a specified directory.
SendKeys "^(o)"
SendKeys "\G-SERVERCorel Draw files
SendKeys"{ENTER}"
Problem is that it doesn't type the text exactly as given. Randomly drops off the first few characters.Because hitting open defaults to the libraries instead of my server where the files are located.
When you hit open the cursor is already in the "File name:" field so if I just type the directory there and hit enter it takes me to that directory. Sure would be nice to just have it type that for me and enter. Had it working great for a few times but aftaerr navigating around for a bit it drops off those characters.
I have tried to use the Macro recorder to record the keystrokes as I get the dimensions from the top of the rectangle to each line of text & from the edge of the triangle to each line of text. Unfortunately the recorder could not record.
Is it possible to design a macro which can be used to get the dimensions as required ?
How to develop an auto dimensioning macro for CorelDraw x3. I have seen this feature built in to FlexiSign Pro. This macro would save so much time and work with consistency!!! Is it doable?
View 14 Replies View Relatedneed a macro code that will select all objects that I've named "X" then delete them. Tried recording but it only works for the one object and not all of the same name
View 8 Replies View RelatedI create macro button for two circles.if we click that button a guidelines create the center of both these circles. i have new in coreldraw VBA.
View 2 Replies View RelatedRe: CorelDraw X4
Windows 7 x64
Installation of Office 2010 breaks the RecentFiles macro, so uninstalling it is now necessary. I would have thought that removing recentfiles.gms from Draw's GMS folder would be sufficient. However, this actions leaves a VBA error message when Draw launches:
"Object library invalid or contains references to object definitions that could not be found".
Need a macro to copy a specific file and then promp where to paste the file. Trying to make a macro to Publish to PDF with certain parameters, mainly the security password, then save to as file "X". Then Call macro to copy file "X" so I can navigate to the proper directory,paste it and rename it.
If Corel had a feature that would allow you to set your password once and it would remember it so you didn't have to retype it every time.
I did managed to Record completely the macro but it will only save over the same file every time. It would work great if I could get it to just go back to the "publish To PDF" after inputting the settings then I can name it and put it in the directory I want.
Is there maybe a macro for styles (either text or graphics) that
1. connects objects assigned with a style, to that style LIVE? eg, altering the style properties, automatically all objects assigned with that style will adopt those changes too,
2. offers LOT more configuration options than the current default CorelDraw styles options
I want to make macro for converting Vector RGB to CMYK. So I did New Macro Project > New Module > Start Rec. > Converted some vector RGB to CMYK > Stop Recording .
Then use same macro to other but it didn't work like photoshop action. VBA basic knowledge, So any easy method can some one know which can be use as macro. Or the proper method to do it.
I have been looking into polishing up some of my macro stuff by properly reacting to document settings and such and prettied something that was built for everyday use. It's a simple little tag adding tool:
To try it out just download the attached zip and extract the GMS file into: C:UsersYOUR USERNAMEAPPDATARoamingCorelCorelDRAW Graphics Suite X6DrawGMS
Then in CD go to Tools ==> Macros ==> Macro manager and launch the Show Form bit. If you have a document open and a shape selected it should work just fine.
I have a macro that I've written that works flawlessly for what I need it to do but only if 1 corel window/job is open at a time. If I could get the macro to just check to see if other jobs are open first and warn me. I can hit ok then clsoe those jobs then proceed with my macro.
View 4 Replies View RelatedWhat 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
I'm just trying to put together a macro that will automate saving a selected group of objects to an AI file, however, I need it to be Compatible with version 8.
I've followed code from older posts to the forum and have successfully exported out a PNG file... I'm hoping to just alter that... here is what I have so far:
Set filter = ActiveDocument.ExportBitmap(path & filename, cdrAI, r, cdrPalettedImage, w, h, 96, 96, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
With filter
.Finish
End With
What would I change to allow it to be compability with AI 8?
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.
View 8 Replies View RelatedIm in a profession where I do a lot of swapping between two colors. Basically reversing them.
Is there a Simple Macro Code out there that could accomplish this? I would be forever in your debt!
This is between objects. Not images. I dont want to invert or anything. I just want to swap colors between the two objects.
