CorelDRAW Graphics Suite X6 :: Macro To Round / Curve Text
Aug 24, 2012
Here's a macro I've used for quite some time. Feel free to use or modify as needed. Install, select text and run. Hold shift and the selected text will round/curve more.
Why I created? I do a lot of graphics that need the top line of text to be curved. I can easily select the top line and press a button and the macro curves it upwards. If I need more curve I hold shift and run. If I need more or less curve still, I make the item in question, the text, larger or smaller. All done by eye and it's fast.
#If VBA7 Then Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As Integer#Else Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer#End IfPrivate Const VK_SHIFT = &H10Public Function ResetKeyStatus(Optional nada As Boolean) As Boolean
[Code] .........
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.
I am new to CorelDraw and I have got an issue which might be potentially linked with master page / dynamic text or macros. I have got a multipage template with some text repetition on each page. Unfortunately those text have to be in different position and using different fonts.So setting up master page is not really solution, unless it can be done as above.
how to curve text within a shape, as paragraph text, not artistic text? (See my attached image.)
I have drawn the shape, inserted the text as paragraph text, but the text always wants to sit straight. I am so frustrated as I can find a workaround in either Corel or Adobe CS products. I have tried using artistic text in Corel, but have to do it line by line - and this brings other problems, such as I cant justify each line with each other, and sometimes a character jumps up relative to the other characters and the entire paragraph does not taper in...so this is not a solution, apart from the fact it will take me FOREVER to insert line by line....I would like to treat the text as a multiple line paragraph, and follow the shape.
when i draw a circle in corel draw, i set the height and width dimension to equal, so it should become a circle, but it end up in the monitor screen an oval shape, also i notice the y axis and x axis in the corel draw is not equal. so i check my artcut y and x axis, is also same as corel draw. But when i cut out the shape, it cut out a circle shape. isit due to monitor or other setting.
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 ?
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
Using the code from "MakeMeACircle" macro. How can I modify it to "InserCircle"? I have it working now but only if the shape is square and aligned to the bottom left of the page. If I move the square anywhere else and run the macro the "Ellipse" is created outside the square and is "squished" instead of a perfect circle.
Who knows maybe there's a macro that already exists to insert a circle inside any shape?
Sub InsertCircle() Dim sr As New ShapeRange Dim x As Double, y As Double, w As Double, h As Double Dim dLeeway As Double ActiveDocument.Unit = cdrInch If ActiveSelection.Shapes.Count = 0 Then Exit Sub sr.Add ActiveSelection.Group sr(1).GetBoundingBox x, y, w, h 'adjust this property ####################################### dLeeway = 0# 'distance to sides 'adjust this property ####################################### sr.Add ActiveLayer.CreateEllipse(x - dLeeway, y - dLeeway, w + dLeeway * 2, h + dLeeway * 2) With sr(2): .OrderBackOne: .Fill.ApplyNoFill: End With sr.Shapes.All.Ungroup End Sub
I have been upgrading to X6 from X5. I wanted to install a CorelDRAW macro called "Function Plotter", written by Alex Vakulenko, into X6. When upgrading from X4 to X5 I just manually placed a certain file (Plotter14.gms) into the Draw GMS folder in the program directory. Then back in CorelDRAW X5 I choose Tools > Options > Customization > Commands in order to place an icon in the toolbar, making access to the macro. It worked back then. However when I try the same procedure in X6 it doesn't work. I can see the file under "Commands" and place an icon, but nothing happens when I press the button. Maybe it has something to do with 64 bit, which from what I can see in this Forum causes a lot of trouble (scanner drivers, plugins, etc)?
This macro is extremely important for me. I have tried contacting Alex, but with no success so far. In the meanwhile I need to install X5 again..
I'm writing a macro that will take a .cdr file, import it, and then do something with it. When I first run the macro, I would like an "open file" browser to pop-up so that the user may navigate and specify which .cdr file to import.
Most imported designs are 100%. I'd like a code that at a push of a button reduced to 10% or any other setting i can change it to. Reason being, we all use different scale modes and sometimes artwork is huge. I need to shrink it down.
Is this possible w/o manually typing in the values?
I use the supplied macro in X5 to convert CDR to EPS which works fine for me, but my only problem is sometimes fonts default since some of those CDR files are not created on the same PC I use the macro.
Is there anyway to get the Font Matching dialog box displayed, so that I subsituute to a font of my choice rather then it use other fonts?
I am just newly figuring out that I can complete repetitive tasks by recording a macro, simple right? I am trying to power clip an imported image into a shape via macro but it is not working.. I am getting Run-Time error's... Parameter Index is out of range.
I have one "shape" and 25 different car logo's I am needing to power clip the logo inside the shape with the click of the "macro" and it is just NOT WORKING! I understand that I can complete the task at hand by simply creating 25 bitmaps, one with each logo then simply importing that into my document, but I need to figure this Macro for this out because it will become more complex and time consuming as time goes on and I add more logos and different shapes in which I need to power clip them into. I simply understand that I can hit the "RECORD" button, do what needs done and then hit stop.. then of course do this again later by playing the macro.
How to reposition where this macro launches? With X5 it launches itself on the left about two thirds of the way down the screen which is fine but with X6 it launches itself almost top left and won't remember its position if it is dragged. It's not possible to edit the code.
Does the following macro works with symbols of Coreldraw X5? I mean the symbols/clone feature, where you can duplicate same objects and when you change one automatically the others changes as well. But this is not the traditional clone option of corel draw. URL.....
Any good macro for adding the date and the file name to a page? i've had a hunt on the net but haven't found anything that works with X3, even tried Oberonpalce.
a tip for solving the problem of exporting an image as a tif led to another question. One solution to export as tif was to create a macro. See that solution post here: [URL] .......
It says : Step 1Run the built in macro. (Tools > Macros > Run Macro). In CorelDRAW versions prior to X4 (Tools > Visual Basic > Play). Select ‘File Converter’ macro from the ‘Macros in’ list and click ‘Run’
However in my macros drop down there are no macros. how can I get a file converter 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.
We have certain registration marks that we use on our designs before we print to vellum. How to be able to write a macro that could do the following? I've attached an example image of where we place the registration marks and am also attaching the actual registration mark CDR file. I'm assuming this would probably be rather simple...
We'd like this registration mark to be centered to the image and placed on the top and bottom of the image at .25 inches away from the image itself. So, I would think the macro would have to select the entire image on the page, then decide where .25 inches is away from the top and bottom of the image and place the registration mark, centered in that area.
And in the 157 page Macro PDF (really, did it need to be this long? How about an easy-command sheet), it says you can use the key command Ctrl+Shift+R to start recording... Well, that brings up the ruler.
I use Macros a lot in Excel (I record the commands that I want, then tweak in the editor), so I get how they are supposed to work - but I'm no programmer, and without the ability to record, I'm completely handcuffed. This really shouldn't be 1% as difficult as it has been
why all-the-sudden this macro does not show up in the list of macros? I'm not sure if it is conflicting with something else and it's been happening off and on.
