OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Search Forums

Showing results 1 to 25 of 30
Search took 0 seconds.
Search: Posts Made By: mtracy
Forum: Macros/Add-ons 10-07-2019, 17:04
Replies: 1
Views: 1,751
Posted By mtracy
Might try posting here...

Might try posting here (https://community.coreldraw.com/sdk/f/code-snippets-feedback).
Forum: Macros/Add-ons 08-06-2018, 16:00
Replies: 15
Views: 4,710
Posted By mtracy
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: 4,710
Posted By mtracy
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: 4,710
Posted By mtracy
doc palette explained 1241

doc palette explained

1241
Forum: Macros/Add-ons 01-06-2018, 09:49
Replies: 15
Views: 4,710
Posted By mtracy
And still has black even though nothing black...

And still has black even though nothing black exists in the doc
Forum: Macros/Add-ons 01-06-2018, 09:48
Replies: 15
Views: 4,710
Posted By mtracy
works but 1240

works but

1240
Forum: Macros/Add-ons 29-05-2018, 14:34
Replies: 15
Views: 4,710
Posted By mtracy
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: 4,710
Posted By mtracy
That actually requires you to select all the...

That actually requires you to select all the shapes and then just deletes 1 shape.
Forum: Macros/Add-ons 23-05-2018, 15:13
Replies: 15
Views: 4,710
Posted By mtracy
I've experimented with several scripts but can't...

I've experimented with several scripts but can't seem to get it?
Forum: Macros/Add-ons 18-05-2018, 16:17
Replies: 1
Views: 1,419
Posted By mtracy
might try the old "hold F8 key while launching"...

might try the old "hold F8 key while launching" trick.
Forum: Macros/Add-ons 10-05-2018, 18:11
Replies: 15
Views: 4,710
Posted By mtracy
Oops, forgot to add the suggestion For i =...

Oops, forgot to add the suggestion

For i = ActiveDocument.Palette.Colors.Count To 1 Step -1
ActiveDocument.Palette.RemoveColor (i)
Next i
Forum: Macros/Add-ons 10-05-2018, 18:11
Replies: 15
Views: 4,710
Posted By mtracy
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: 4,710
Posted By mtracy
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: 2,103
Posted By mtracy
Ok, just for giggles here's what I got. Find the...

Ok, just for giggles here's what I got. Find the radius of any arc.

With the shape tool select the nodes that make up the Arc or curve segment, run the macro and it tells you what the radius is.
...
Forum: Macros/Add-ons 10-11-2017, 14:36
Replies: 2
Views: 2,103
Posted By mtracy
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: 2,103
Posted By mtracy
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: 2,083
Posted By mtracy
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: 3,332
Posted By mtracy
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: 3,332
Posted By mtracy
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: 3,332
Posted By mtracy
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: 3,332
Posted By mtracy
Thanks Shelby but unfortunately I won't be able...

Thanks Shelby but unfortunately I won't be able to make it automatically run whenever I select a control shape. Tried the SelectionChange method but it just continues to loop thru
Forum: Macros/Add-ons 15-12-2016, 11:23
Replies: 6
Views: 3,332
Posted By mtracy
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: 3,332
Posted By mtracy
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: 2,153
Posted By mtracy
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...
Forum: Macros/Add-ons 07-07-2015, 15:12
Replies: 1
Views: 2,800
Posted By mtracy
This worked for me in X7

Sub CenterToPage()
Dim sr As ShapeRange
Set sr = ActiveSelectionRange


sr.AlignRangeToPageCenter cdrAlignVCenter

End Sub
Showing results 1 to 25 of 30

 
Forum Jump

All times are GMT -5. The time now is 05:00.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com