OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Search Forums
Reload this Page Search Results
BlogsGallery FAQ Members List Social Groups Calendar Search Today's Posts Mark Forums Read

Page 1 of 20 1 2311 Last »
Showing results 1 to 25 of 500
Search took 0.09 seconds. Search: Posts Made By: shelbym
Forum: CorelDRAW/Corel DESIGNER VBA 28-02-2022, 19:28
Replies: 1
Views: 669
Posted By shelbym
Select Bottom Most Shape on Page

Use a little CQL:

Sub SelectBottomShape()
Dim srSelection As ShapeRange

Set srSelection = ActiveSelectionRange
srSelection.Sort " @shape1.Top * 100 - @shape1.Left >...
Forum: CorelDRAW/Corel DESIGNER VBA 31-01-2022, 17:32
Replies: 3
Views: 1,198
Posted By shelbym
What is an inside corner?

What is an inside corner?
Forum: CorelDRAW/Corel DESIGNER VBA 05-10-2021, 22:47
Replies: 51
Views: 91,230
Posted By shelbym
Color Replacer advanced remake

I have made the following changes to the macro:


Copyright Text
Replace now works with Groups inside a Powerclip
Eyedropper now works for shapes inside Powerclip


Hope Coding!
Forum: CorelDRAW/Corel DESIGNER VBA 13-09-2021, 14:42
Replies: 2
Views: 1,118
Posted By shelbym
Unviewable

I have sent you a private message. Hope to hear from you.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 13-09-2021, 14:39
Replies: 2
Views: 1,179
Posted By shelbym
ToggleView

You could use a macro for this and then assign it to your key combo instead of the default way:

Here is some code to get you started:
Sub ToggleView()
If ActiveDocument Is Nothing Then...
Forum: CorelDRAW/Corel DESIGNER VBA 03-09-2021, 23:36
Replies: 1
Views: 1,223
Posted By shelbym
Events

I have put together an Example Docker for you.

This example is a Custom Docker written in VB.NET. I will include the entire solution as an attachment. You will need Visual Studio to open / edit...
Forum: CorelDRAW/Corel DESIGNER VBA 03-09-2021, 20:57
Replies: 1
Views: 1,381
Posted By shelbym
Replace Part Text of Text Shape

You can use the Text.Replace for this. Here is quick example from the API Documentation:

Sub Test()
Dim s As Shape
For Each s In ActivePage.FindShapes(, cdrTextShape)
s.Text.Replace...
Forum: CorelDRAW/Corel DESIGNER VBA 03-09-2021, 20:52
Replies: 2
Views: 3,846
Posted By shelbym
ActiveShape.Fill.UniformColor.Name

This was asked on the Corel Community Forum so I decided to revisit it and see if I could figure out a work around. If you want to see that entire thread you may see it here:

Color Name not...
Forum: CorelDRAW/Corel DESIGNER VBA 16-05-2021, 21:36
Replies: 2
Views: 3,846
Posted By shelbym
ActiveShape.Fill.UniformColor.Name

Yep, looks to be a bug. No matter what color I use it always returns "unnamed color". I do not have a work around, if I find one I will let you know.

I will also get this logged.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 16-05-2021, 21:23
Replies: 2
Views: 3,676
Posted By shelbym
Inside / Outside Corner Rounding

I am a little unclear what you are asking for. Are you talking about the Outline Position?

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 16-05-2021, 21:16
Replies: 1
Views: 3,061
Posted By shelbym
how to fill a shape with spot color by name

You can do this by the index like this:

ActiveSelection.Fill.UniformColor.PaletteAssign "PANTONE® solid coated", 44

or you can do a StringAssign like this:
...
Forum: CorelDRAW/Corel DESIGNER VBA 16-05-2021, 20:49
Replies: 1
Views: 2,233
Posted By shelbym
This isn't an error that I have seen. Hopefully...

This isn't an error that I have seen. Hopefully you can figure it out.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 06-12-2020, 15:57
Replies: 2
Views: 4,030
Posted By shelbym
Coreldraw 2020 vba and the objects docker

Starting with X7 there are changes to the xslt files for custom dockers. You can see my post about it here:

Changes to XSLT Files for X7 (http://https://forum.oberonplace.com/blog.php?b=39018)
...
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 15:11
Replies: 1
Views: 17,023
Posted By shelbym
How to use user input text in a form?

If you are not getting anything back, my guess is that your form is closed.

I would recommend you put a button on your form that wen you click on it that it would show you the value in the...
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 15:05
Replies: 1
Views: 11,920
Posted By shelbym
Possible to select same font?

You could do something like this. Select a line of Text and then run the following macro. It will select all others lines of text on the current page that have the same font.

Sub SelectSameFont()...
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 14:47
Replies: 1
Views: 12,509
Posted By shelbym
W10 X6 shortcut problem

I have not seen this with Windows 10. I know, that isn't much help, sorry.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 14:44
Replies: 2
Views: 19,248
Posted By shelbym
How to Select unique colors in shaperange

Here is a fun little way to do this using CQL:

Sub CQLColors()
Dim sGroup As Shape
Dim strColors As String

Set sGroup = ActiveSelectionRange.Group

strColors =...
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 14:28
Replies: 2
Views: 9,284
Posted By shelbym
Help! Why the ApplyPatternFill Method take so much time?

Try loading it this way instead:

Sub test123()
ActiveSelection.Shapes(1).Style.Fill.LoadFill "C:\Users\Shelby\Documents\Corel\Corel Content\Fills\Starter pack\Vector Pattern 232.fill"
End...
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 13:49
Replies: 2
Views: 6,141
Posted By shelbym
Not sure I understand what you are asking. Ask...

Not sure I understand what you are asking. Ask another way and I will see if I can help.

Happy coding,

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 25-11-2020, 13:47
Replies: 1
Views: 5,630
Posted By shelbym
Origin Point of Rectangle

The easiest way would be to find the first node of the display curve.

The following will mark the origin point of each rectangle with a red circle:
Sub FindStartofRectange()
Dim sr As...
Forum: CorelDRAW/Corel DESIGNER VBA 13-05-2020, 22:05
Replies: 4
Views: 24,218
Posted By shelbym
Virtual Segment Delete

I will also say, have you tried the Virtual Segment Delete Tool?

If you hold down Shift, you will see the tool icon change, you then draw a box around the nodes and they get joined.

The...
Forum: Macros/Add-ons 02-10-2017, 10:55
Replies: 1
Views: 12,706
Posted By shelbym
Intersects

You would need to add a loop to loop through all your shapes and check them for Intersects.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 06-03-2017, 21:54
Replies: 2
Views: 6,193
Posted By shelbym
Custom Icon

Just to add to this, I normally create a custom toolbar to add my custom icon to, then you can export the workspace and the new toolbar. This will give you XML you need to add if you want to add the...
Forum: CorelDRAW/Corel DESIGNER VBA 02-03-2017, 00:02
Replies: 4
Views: 8,174
Posted By shelbym
Lots of Shapes

If you are working with a lot of shapes grouping makes things go move faster. So you could do something like this:
Sub MakeLayerTransparent()
Dim s As Shape

Set s =...
Forum: CorelDRAW/Corel DESIGNER VBA 17-02-2017, 11:46
Replies: 12
Views: 7,930
Posted By shelbym
Nodes Example

If you could post an example .cdr file it would be helpful. A before and after example workds best.

-Shelby
Showing results 1 to 25 of 500
Page 1 of 20 1 2311 Last »

 
Forum Jump

All times are GMT -5. The time now is 18:01.

OberonPlace.com - Archive - Top

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