Is there a commercial macro that inserts shapes into an object?
Do you know if it is capable of inserting 1” squares in say a letter G that is 30” in height?
See below example.
I hate pressing F8 at startup!
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
it's my job to create drawings for patent applications, and These drawings usually consist of multiple pages with one or more drawings on each page. Each of these drawings has to be given it's own unique identifier (for example Fig. 1, Fig.2 etc).
In the process of designing a complete patent application it is often necessary to change the order of figures around and/or add new ones, remove old ones and so on. Now we get to the macro part.
What I need is a macro that identifies an artistic text placeholder (let's say <figures>) and replaces it with a text that says "Fig. x", x being counted upwards starting from 1. In essence I need the macro to count how many times it has already replaced <figures>, and insert the correct number. After the macro has done it's work I want every placeholder replaced with "Fig.1" or "Fig. 2".
I'm trying to get more than one image into a gimp document, resize them and print off on one page. Currently, I need six pictures, but the number will go up and down depending on what I'm doing.
View 3 Replies View RelatedWe're about to roll out LT 2012 now the SP1 is out, normally I would run round and change the default options by hand (template locations, support file paths etc..) Is there any way I can do this in a macro, or some other way, which means I don't have to go to 100 PC's?
View 1 Replies View RelatedIt's been too long since I created one of these for Toolbars. I need a macro that will insert and explode a block. I just need the block's content, not the block itself. I can create a maco to explode a block with no path, but can't remember how to include the "*" in a file with a folder path to explode the block while its being inserted. Because of spaces in the file name, quotes (") must be around the path.
View 1 Replies View RelatedI'm trying to design a school magazine cover, the emblem is a fountain. I wanted to put a colage of pictures within the fountain shape .
View 3 Replies View RelatedI'm creating a logo that consists of the word DIFFERENT in text and a shape, a dot (an ellipse) that I want to appear above the I and be vertically aligned with I.
How can I do this?The problem is that I can't see how to identify the point in the text - the centre of the I - to act as the target. I can't seem to get any of the Snap to Object tools to work.
I feel that I should be able to mark a specific point anywhere on a shape or an object and use those points to align.
I suspect that I could achieve the effect that I want by splitting the text characters up into individual objects, than I can align them more obviously but then I set up some other issues with kerning.
I'm working with CorelDraw X3 and want to fill text into a round shape, while keeping it's exact outline. Hence, cutting of parts of words and letters is fine with me as long as the shape is well-defined. Unfortunately when filling paragraph text into a shape, the automatic line breaks lead to a quite irregular shape regardless of font size.
As workaround I arranged a mask in front of background and text but this requires a square paragraph text which is larger than the background. Since paragraph text obviously cannot be cropped with other objects I made the mask size bigger and filled it white. When exporting my document as image everything looks neat, but there must be a better way to do this in CorelDraw itself?
I tried converting the paragraph text into artistic text and cropping this, which works fine for a few words and a small object. But I'm talking around 1000 words here, and trying to crop this artistic text leads to very random cropping results. I guess such a large number of objects and knots is too much for CorelDraw to handle!?
I can't seem to master this, it's simple in Indesign, but in Photoshop when I draw a line shape, and then go to stroke / drop shadow it in the layers blending options, it strokes a long rectangle, not a line. I'm doing this to mark off a road path on a map.
View 4 Replies View RelatedI can't open the other shape options form the rectangle tool?
View 1 Replies View RelatedI just installed CD on my daughter's computer and her shape tool only allows for a free form selection by following the cursor in a free form way. My install allows for a rectangular click-and-drag type of selection. I see no options for this tool Is her install bad?
View 5 Replies View RelatedIs there a way to turn on the ctrl shift alt and space bar options for the selection window like it works with the shape tools?
View 2 Replies View RelatedHow to run a macro through all the pages at a single instance in a malty page document.
View 3 Replies View RelatedTransformEach.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]....
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
[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.
This is something that has bugged me for ages. Sometimes i have real problems making a circular hole in another shape. I would normally use 'back minus front', but when i do this a lot of the time Corel adds the nodes into the shape but it doesn't actually cut out the area. Hopefully the graphics here will explain this better.
So i want to cut the three white circles from the blue background, but you can see the results:
The odd thing is this doesn't always happen. If i just draw a square and a circle, and cut one from the other, it works fine. Also, is there an easy way to 'punch' out the nodes that it has left in there to make the hole in the shape?
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
____________________________________________________________________
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 ?