How to undo a step in a recorded macro.
Let's say that the macro has 17 steps, instead of hitting undo 17 times... I just have to do it once.
What's this line?
And also where can I find downloadable resources on macro creation and editing?
We do a lot of artwork for screenprinting that needs to generally be 11" tall for adult shirts and 9" tall for kids sizes.
I recorded a macro that basically copies everything on the 11" page onto a new page, pastes the graphic and then resizes it to 9" tall. The problem is that when it resizes, it doesn't seem to keep the proportions.
For example, if I have a circle that is 11"x11" and use my macro, I would expect it to be resized to 9"x9"
Instead, after using my macro, the circle is resized to 9" tall by 8.36" wide.
Did I make a mistake somewhere when recording this macro? I'm not a pro at deciphering macro scripts so I've attached it here:
Sub Kids_Size() ' Recorded 6/30/2011 ActivePage.Shapes.All.CreateSelection ActiveSelection.Copy Dim p1 As Page Set p1 = ActiveDocument.InsertPagesEx(1, False, ActivePage.Index, 11#, 17#) p1.Layers("Layer 1").Paste Dim Paste1 As ShapeRange Set Paste1 = ActiveSelectionRange ActiveDocument.ReferencePoint = cdrCenter Paste1.SetSize 8.360346, 8.999996End Sub
I thought it would be in the same folder as custom media, but the GMS folder there is empty. I'd like to back them up. Where they are stored (in XP)?
View 8 Replies View RelatedHow I can increase the undo steps. I know it's possible as I saw it on a tutorial.....but I have watched that many tutorials this last week I can't remember what the instructions were or which tutorial it was.
View 15 Replies View RelatedAfter laying up a nameplate design and having inspection verify the design I went to the next stage of of our production which is step and repeat.
I stepped the nameplate 5 down and items 3 and 4 are missing 1 line of text but the text re-appears on the last (5th) image. I then I stepped it accross 6 times with items 3 and 4 still missing text all the way accros (I would expect this). The missing text went un-noticed by both me and inspection since the first (upper left) and last (lower right) images should be identically correct and they were.
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
i downloaded the macro at [URL] but can't run it in x6. how can i do that?
Windows 7 [64-bit], Core i3 - 3.02 GHz, 4GB DDR 3 RAM
Is it possible to create a macro that would take an image made up of multiple objects and separate each object on a new page?
View 3 Replies View RelatedUsing 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..
Is there a macro that turns all text on a page in curves?
View 8 Replies View RelatedI'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.
View 3 Replies View RelatedMost 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.
View 7 Replies View RelatedDoes 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.....
View 2 Replies View RelatedAny 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.
View 12 Replies View RelatedI have a Command Method which has a loop that opens and commits transactions until the user is finished with it and exits.
I would like each transaction to be undone separately but the undo command undoes the CommandMethod (along with all the transactions that occurred while in the loop)
Do I need to use the COM StartUndoMark and EndUndoMark to get this working?
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.
View 14 Replies View RelatedHave text that has markers - need to write a macro to pick up the markers and make that text bold or that text italic etc...
ie #Arana Hills# 'Heidke Dance Studio' Joanne Wilson.: 5923.1111, Ramon 0444.220.567
Need the text between the # to be bold and remove the # markers
Need the text between the ' to be italic and keep the data marker '
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
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'd like to enter a value to space two shapes but use the currently set worldscale. How can I do this?
I'll be using a architectural scale such as 3/8" = 1'-0" and such.
= Round(txtScaleDen.Value / 144)
Call setDocScaleCheckbox(chkUseDocScale.Value, userWorldScale)
I hate pressing F8 at startup!
What determines the order of items shown in the Macro Manager? Is there anyway to have the modules show up in alphabetical order?
View 5 Replies View RelatedIs macro can change color of the work envoronment in CD? I can't stant the white anymore.
CorelDraw X5 v. 15.2.0.686 Hot Fix 4 - Windows 7-64
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.
CorelDraw X4 (14.0.0.704)
Win 7 64bit
12GB RAM
A macro that will group all alike colours on a page and then copy them to a new page?
We used to have this feature on a product called Vinyl Master. It is really good, but I don't want to run 2 systems for my artwork. We mostly do digital output, but have the requirement to cut vinyl too, mainly for mining vehicles.
It would save a heap of work if we could group all alike colours, then copy to another page, ready for output. Even better if they were nested.