OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Search Forums

Showing results 1 to 25 of 500
Search took 0.11 seconds.
Search: Posts Made By: shelbym
Forum: CorelDRAW/Corel DESIGNER VBA Yesterday, 16:11
Replies: 1
Views: 5,634
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 Yesterday, 16:05
Replies: 1
Views: 3,733
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 Yesterday, 15:47
Replies: 1
Views: 3,765
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 Yesterday, 15:44
Replies: 1
Views: 8,295
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 Yesterday, 15:28
Replies: 1
Views: 1,346
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 Yesterday, 14:49
Replies: 1
Views: 260
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 Yesterday, 14:47
Replies: 1
Views: 157
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, 23:05
Replies: 4
Views: 6,748
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, 11:55
Replies: 1
Views: 5,850
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, 22:54
Replies: 2
Views: 2,461
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, 01:02
Replies: 4
Views: 2,834
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, 12:46
Replies: 12
Views: 3,660
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
Forum: CorelDRAW/Corel DESIGNER VBA 16-01-2017, 16:39
Replies: 1
Views: 2,620
Posted By shelbym
Code

The code works fine in X6 16.4.1.1281 so I am going to guess it is a bug in that version.

-Shelby
Forum: General 16-01-2017, 16:34
Replies: 1
Views: 5,343
Posted By shelbym
X8 Improvements

The biggest X8 improvement for me is the support of High DPI screens. That said, I only have one machine with such a screen and I currently do not use it often. So I still spend most of my time in...
Forum: Macros/Add-ons 15-12-2016, 14:03
Replies: 6
Views: 7,487
Posted By shelbym
Select Effects

Here you go, select your shape or shapes and run the SelectEffects

Sub SelectEffects()
Dim sr As ShapeRange, srNewSelection As New ShapeRange
Dim s As Shape
Dim eff As Effect
...
Forum: CorelDRAW/Corel DESIGNER VBA 04-12-2016, 02:13
Replies: 2
Views: 3,674
Posted By shelbym
Order ShapeRange

Create a Function that places the Shape in the position you wish in the ShapeRange and then have it return that ShapeRange. Here is an example of the function. If your position is greater then the...
Forum: CorelDRAW/Corel DESIGNER VBA 04-12-2016, 01:27
Replies: 7
Views: 7,219
Posted By shelbym
Examples

dungbtl,

I would need some examples, but then I could see if I can get the results you want.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 04-12-2016, 01:25
Replies: 1
Views: 2,614
Posted By shelbym
Excel

You can always open Excel and do your coding there, you will get help and all the fun stuff.

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 04-12-2016, 01:22
Replies: 11
Views: 16,476
Posted By shelbym
64-bit Version

Here is a 64-bit version. It is 64-bit only, but you may compare to the other to see what I changed:

Public Const OFN_ALLOWMULTISELECT = &H200&
Public Const OFN_EXPLORER = &H80000
Public Const...
Forum: CorelDRAW/Corel DESIGNER VBA 04-12-2016, 00:21
Replies: 1
Views: 2,338
Posted By shelbym
Custom Form

Is the Custom Form on the X8 Machine?

You can also comment out that line and see if it is the issue.

Another way to make sure what line is cause the problem is to set a break point very early...
Forum: General 04-12-2016, 00:19
Replies: 1
Views: 5,098
Posted By shelbym
Text Italic

Hopefully this helps:

Sub Change_Police_Altà()
Dim tr As TextRange

Set tr = ActiveShape.Text.Selection

tr.Font = "Lucida Bright"
tr.Size = 7
tr.Italic = True
Forum: CorelDRAW/Corel DESIGNER VBA 08-10-2016, 14:24
Replies: 1
Views: 2,356
Posted By shelbym
X8 Error

What is the error message you are getting?

-Shelby
Forum: Site News 16-06-2016, 22:54
Replies: 1
Views: 23,566
Posted By shelbym
New Server

Alex,

Thank you! I have noticed the speed bump!

-Shelby
Forum: CorelDRAW/Corel DESIGNER VBA 31-05-2016, 00:26
Replies: 6
Views: 5,463
Posted By shelbym
X8

I have X4 - X8 installed on one system and X6 - X8 on another system and do not have any issues. What type of issues are you having?

X8 supports several more languages. You only see the ones you...
Forum: Macros/Add-ons 04-04-2016, 14:48
Replies: 1
Views: 6,172
Posted By shelbym
ApplyStyle TextRange

I can confirm that ApplyStyle does not seem to work with a TextRange, only the entire Shape.

-Shelby
Showing results 1 to 25 of 500

 
Forum Jump

All times are GMT -5. The time now is 13:03.


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