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
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 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 ____________________________________________________________________
need 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
I have been unable to find a macro to perform elliptical fills, or for dynamically interactive fractal/"plasma" fills.
It would seem to me, that these could have already been written by any of the experienced macro programmers for CorelDraw. No interest, or are these sort of fills too difficult to programmatically implement through a macro?
I have a need for a macro that I am thinking would be pretty easy to create... I need a macro to cycle through all objects on a page and IF it finds an object that is LARGER than 13" wide, it will unproportionaly size each object to exactly 13" wide (leaving the height of the object alone.) and then after all of the scaling/sizing is complete then to select all objects and right align them (Like when you select all objects and hit the letter R key.
I found Oberon Fit Objects To Path as a very interesting macro and i tried to download it.I have downloaded the zip file from Oberon website , but an Error showed up on my screen saying: "Unable to find CorelDraw x5 installation"...
I know the reason for this is because of the x5 version, which i don't have in my system.But i have also downloaded some other macros that are x4 or x5 versions and they are working excellent on my CorelDraw x6.
Any other macros similar to the "oberon Fit Objects To Path" macro?
Surely the Find/Replace Objects dialog boxes don't just restrict itself to searching on the current page... that would be stupid but it seems to be that way.
Why does the find and replace functionality have to be so sloppy to use? I have a customer that sends me cmyk drawings and I need them to be rgb. They also have lines that need to be changed to hairline from .25pt. It's frustrating how difficult this is to accomplish due to the sloppy interface that CD has had ever since I've been using it - since v12.
How hard would it be to allow you to change the palette, line width and colors on lines and outlines in one step? Right now it's multiple steps and don't forget once to change the target color palette or you'll convert everything back to cmyk...
We need a macro that will allow you to select a certain color fill inside document and change all to no fill hairlines. It needs to be capable of doing it several times within the same document. Does anything like this exist out there?
We have color replacer. We want it to do this automactically with a static group of colors everytime without any manual maniplulation required.
Looking for a nice script that can search a complex design with lots of linework and find all coinciding duplicates and select them all and delete them but leave (1) good copy.
Basically when I use Outline Pathfinder in Adobe Illustrator, then bring back into corel, sometimes get a lot of redundant objects. I already set the settings in Adobe Illustrator to minimize that as much as possible.
Is there any way to set keyboard shortcut or toolbar button to customized find objects option (.fin file)? I am a average Coreldraw user, knows almost all basics, but lacks advanced use of Coreldraw. I like to use any techniques that saves time. I know it with adobe Photoshop (like action etc.) but not with Coreldraw.. I heard about macros.
For Now I need to
1) set keyboard shortcut or toolbar button to customized find objects option (.fin file)
2) set keyboard shortcut or toolbar button or macros for repetitive find & replace options...
3) create macros for simple moves & then after combine these type of simple macros in one macros...
4) set keyboard shortcut or toolbar button to that macros...
5) and any these type of time saving technique. (in selection making, replacing, finding, batch process etc..)
I want is make actions & then combine them to script & then set keyboard shortcuts for same...
I know my code below wont work, just putting here to hopefully explain more exactly what im trying to do
Sub FindbyFill() Dim sh As Shape dim findColor ActiveSlection.GetColor = findColor For Each sh In ActiveLayer.Shapes If sh.FillColor = findColor Then ActiveSlection + sh End If Next sh
when i am trying to use a function like mirror or offset..etc i will select the lines or objects then i will make a mistake such as selecting the wrong base point or such. i then press esc to end that function and try again but find it annoying that i have to select all the lines again. is there a quicker way to reselect the last lines or objects selected. "like the (L+enter) to use line function type macro".
I am attempting to do a macro that will allow me to select multiple objects and then move them in only ONE axis. For example, If I want to move a wall, the door and the window in the Y axis to align with another wall across the hall. I have attempted to do this in a button macro, but so far its limited. Here is the macro
^c^c_move;\.xz;@;
This will allow me to click the customized button, then select ONE object by a displacement, and it will only move it in the Y axis and allows me to choose the point with a mouse click of the final location.
When I try to select more than one object, it kicks me ahead in the commands and prompts for (needs Y). how I can figure out the correct macro?
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.
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
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 often produce graphics in CorelDRAW, export it as en eps file and insert it inside a MS Word document as an image and finally convert it to pdf. This way my vector graphics (often linedrawings with or without fill) usually is preserved in the final pdf document. I can zoom in and the lines keep on displaying perfectly sharp. This is important, since it easily looks bad when thin lines are turned into bitmaps, even when watched from a distance.
Now, in some graphics I created today, I had a circle with fountain fill and outline (symbolizing a sphere) put behind a filled rectangle, which had a uniform transparency applied to it. In the resulting pdf file, the 'sphere' was turned into bitmap. Inside CorelDRAW everything was vector graphics, but something was loast in the process. what happens with the graphics in the different steps in the process and eventually could explain a workaround to make everything look as vector in the final pdf file.
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.
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 ?
