CorelDRAW X6 :: Select Text And Change Size From Macro
Aug 15, 2013
I want to select my text and change the size from my macro. As of now if i preselect the size it outputs the size once i type the text in box and add to page, but i cannot change the size by selecting the text. Im building this off of my output settings.
Sub ChangeSize ()Dim OriginalSelection as S,
text as StringDim txtShape as ShapeOn Error Resume NextOriginalSelection = (ComboFontSize.text, "pt", "")size = CInt(text)Set textShape = ActiveLayer.CreateArtisticText(ActiveLayer.Page.CenterX, 8, FontText.text,
cdrLanguageNone,
cdrCharSetMixed, Me.lstFonts.text, size)
End Sub
I would like to have a macro to select all the text in a document (independently if it is in a group or ungrouped), and change its font to another one.
I have tried to record a macro by myself, but appear a text that says that these functions could not be recorded.
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.
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
Do you have a macro or Diesel command that would select all text or dimensions in a drawing and delete it automatically. I've seen an LISP command, but I know from a fact that it does not work on LT. By the way, I'm using Autocad LT 2014.
How can I change the default text size? I can set the size to 12 pt in three different places and choose "save settings as default", and when I place the text cursor on the page, it goes back to 24 pt. Very maddening...
I am looking for a macro for nesting different shape panels to a specific page size. each panel must have a clearance of 5mm all around. and cannot rotate. must be stay within the grain.
I converted a DXF file to a Corel Designer file. This DXF file also has some dimensions which turned into paragraph text. This paragraph text is turned by 90 degrees. The font size is rather small, so I increased it by some points. As the paragraph text frames were now too small, I tried to increase their size. However, the text frames always jump back to their original size.
I experimented a little bit and noticed that this is only, if the text is turned by 90 or 270 degrees. If the text frame is not turned or turned by 180 degrees, you can change the size of the text frame. Additionally this problem arises only, if the option "Expand and shrink paragraph text frames to fit text" is activated (in Tools | Options | Workspace | Text). Sometimes some text frames were adapted automatically, when I changed this option. However, I do not know when which text frame was changed.
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 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.
For several years I've been programming in Inventor and AutoCAD, with VBA. Making macros and creating a button for them in the toolbar of Inventor is no problem. What disturbs me slightly is that the name of the button is the same as the name of the macro. In VBA you can't create functions with spaces in the name. So the name of the toolbar button often looks quite silly.
Is there a way to change the name and the tooltip-text of the toolbar button without loosing the link to the original macro? In AutoCAD this is no problem, but Inventor...
Product Design Suite 2014 Inventor 2012 SP2, Vault 2014 HP Workstation Z220 Intel Xeon 3.4GHz 16GB RAM Nvidia Quadro 4000 Windows 7 Professional (64bit)
How to make a macro that changes the font for a specific Text Style. The name of the Text Style is eg. "3mm", which I want to change from RomanS to Verdana.
My CorelMacros.CreateColorSwatch macro has stopped dumping the swatches into whatever blank Letter-sized document I have open (which is how it used to work) and instead it is creating a new document, at 4.25" wide x 7" high, and dumping the swatches into that. Using Pantone Solid Coated, but it's doing this regardless of what palette I choose.
There is no option in the Macro's dialog box to alter or even instantiate a page size, and I cannot find in the code of the macro where to set this variable.
is there any solution to change a special character font in paragraph.
I'm formatting a book in corel and want to change all the question marks (?) in a different font while retaining other characters in same fonts. Is there any possibility in corel? I've searched on internet but there is nothing useful.
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 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.
I create a text box and paste in the info into it. Now I want to resize the box to fit the space available but the handles end up changing the font size. I need the software to change the auto line feeds as the box's size is changed.
know of a macro available that will search a document for any form of white fill (rgb, cmy,cmyk,greyscale, etc) and if it finds any of those colors, it will automatically change those white fills to a Pantone White Spot Color?
I'm aware on the Oberon Color Replacer, but I'd like a macro that is more simple and will do all of this with a click of a button or keyboard shortcut.
I have about forty maps created in DP6. Each of these has numerous pieces of text within it. These include title, map number, descriptive notes, individual letters such as A B C, scales, map symbols etc etc. These are currently all in Arial with some parts being bolded.
My question is:
In any one map can I select all the text within that map and change the character of the font? Ie can I grab all the text and change it from arial to a serif font? Or change all the text to a different colour?
I hope it can be done. I have done a bit of experimenting but have not found a way yet.
I have a set of drawings (19) with a lot of annotations, however I have to change them according to the original text:
Example: Return Air Drive by RAR, Sump by SMP etc. How is possible to select ALL the annotation with the same text and change them for the new ones? Every time that I select by text, either the MultiText or the Multileader objects are selected correctly but I can change only one at the time. Is there anyway to do the changing process in one shot for Text or Multitext with the same contents?
I am creating a layered marine chart with reference points. I've imported the chart and am creating text layers with a reference number in them.
I have about 700 of these to add - a daunting task - but it's for a NZ coastguard unit, so is worthwhile.
The idea is to have a layer with all our reference points on it, so when a chart is updated, we can just import the chart; add back the reference points layers and print it out.
(Why? NZ baynames, danger spots etc usually have 2 names; an english name and a maori name - sometimes we have to cross reference when on the water to find the correct place).
Is creating text layers the best way of doing this?
Is there any way of increasing the size of all the text - instead of having to edit 700 text layers?
