Forum: Macros/Add-ons
12-02-2020, 14:35
|
|
Replies: 0
Views: 8,777
Replace selected name with another
We use a custom label within all out proofs that includes an artist/designer name. In doing so whenever we get a request for a reprint we create a duplicate of the design within the same file. We...
|
|
Forum: Macros/Add-ons
10-07-2019, 17:04
|
|
Replies: 1
Views: 7,834
|
|
Forum: Macros/Add-ons
08-06-2018, 16:00
|
|
Replies: 15
Views: 14,333
Nope. This one is close but doesn't work if...
Nope. This one is close but doesn't work if Pantone colors are used.
Sub Reset_DocPalette()
ResetPalette ActiveDocument
End Sub
Sub ResetPalette(ByRef iDoc As Document)
Dim CurColNo...
|
|
Forum: Macros/Add-ons
04-06-2018, 09:42
|
|
Replies: 15
Views: 14,333
Gettin' there. Still kind of "buggy"
Seems...
Gettin' there. Still kind of "buggy"
Seems you had to select all shapes first so I added a line after
...Set srAllShapes = ActivePage.Shapes.All
srAllShapes.AddToSelection
Would also need...
|
|
Forum: Macros/Add-ons
01-06-2018, 10:03
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
01-06-2018, 09:49
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
01-06-2018, 09:48
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
29-05-2018, 14:34
|
|
Replies: 15
Views: 14,333
I don't want to delete any shapes at all. I...
I don't want to delete any shapes at all. I merely want the Document Colors to reflect only the colors currently used in the document. The Doc Color palette will show all colors ever used even after...
|
|
Forum: Macros/Add-ons
24-05-2018, 09:12
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
23-05-2018, 15:13
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
18-05-2018, 16:17
|
|
Replies: 1
Views: 6,209
|
|
Forum: Macros/Add-ons
10-05-2018, 18:11
|
|
Replies: 15
Views: 14,333
|
|
Forum: Macros/Add-ons
10-05-2018, 18:11
|
|
Replies: 15
Views: 14,333
One suggestion is close but it deletes all the...
One suggestion is close but it deletes all the colors. As one is "doodling" lots of colors get added to the document coors palette. Even after you delete a bunch of different colored shapes. Manually...
|
|
Forum: Macros/Add-ons
10-05-2018, 18:07
|
|
Replies: 15
Views: 14,333
Document Colors
How can I reset the document colors with a macro?
I can cycle it on/off but can't figure out how to "reset" it. Once a color shape is deleted the doc palette still shows the color until you click...
|
|
Forum: Macros/Add-ons
10-11-2017, 16:56
|
|
Replies: 2
Views: 7,406
|
|
Forum: Macros/Add-ons
10-11-2017, 14:36
|
|
Replies: 2
Views: 7,406
Got it. ...
Got it.
https://community.coreldraw.com/sdk/f/code-snippets-feedback/56545/vba-to-rotate-an-open-curve-so-that-the-end-nodes-are-perfectly-aligned-along-a-horizontal-plane
|
|
Forum: Macros/Add-ons
10-11-2017, 13:21
|
|
Replies: 2
Views: 7,406
How to rotate an open curve
Looking for vba to rotate an open curve in such a way that the end nodes are on a horizontal plane. Not align the nodes per say, but rotate the shape based on the position of the nodes on the Y axis.
|
|
Forum: Macros/Add-ons
25-09-2017, 13:32
|
|
Replies: 1
Views: 7,703
Add nodes at intersects
Select two shapes. Tested with X7.
Sub NodesToIntesects()
Dim s As Shape
Dim nr As New NodeRange
Dim cps As CrossPoints
Dim cp As CrossPoint
...
|
|
Forum: Macros/Add-ons
20-12-2016, 09:23
|
|
Replies: 6
Views: 9,961
Macro updated to include drop shadow effects
Private Sub GlobalMacroStorage_SelectionChange()
Dim s As Shape, effC As EffectContour, effDS As EffectDropShadow, effSh As ShapeRange, i As Long
Set s = ActiveShape
If Not s Is Nothing Then
...
|
|
Forum: Macros/Add-ons
19-12-2016, 12:57
|
|
Replies: 6
Views: 9,961
macro updated
Private Sub...
macro updated
Private Sub GlobalMacroStorage_SelectionChange()
Dim s As Shape, eff As EffectContour, contR As ShapeRange
Set s = ActiveShape
If Documents.count < 1 Then Exit Sub
If...
|
|
Forum: Macros/Add-ons
16-12-2016, 10:54
|
|
Replies: 6
Views: 9,961
Thanks to FanDuru...
Thanks to FanDuru (https://community.coreldraw.com/members/faneduru) over in the Corel forums (https://community.coreldraw.com/sdk/f/42/t/54427) and with a couple of added lines of my own, I now have...
|
|
Forum: Macros/Add-ons
15-12-2016, 14:36
|
|
Replies: 6
Views: 9,961
|
|
Forum: Macros/Add-ons
15-12-2016, 11:23
|
|
Replies: 6
Views: 9,961
This is what I'm trying to accomplish. It has...
This is what I'm trying to accomplish. It has always been annoying to me that when a shape has a contour attached i.e. a "Control Curve, Control Rectangle, etc." and you select it to duplicate it you...
|
|
Forum: Macros/Add-ons
14-12-2016, 16:00
|
|
Replies: 6
Views: 9,961
code request
If selected shape has a contour then select both or add both to selection
|
|
Forum: Macros/Add-ons
06-12-2016, 11:09
|
|
Replies: 0
Views: 7,241
Distribute shapes to page
I've come up with my own little macro to distribute shapes evenly across a rectangle either horiz or vertically. If you use the distribute docker you can already "distribute across the page" but it...
|
