OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Search Forums

Showing results 1 to 25 of 431
Search took 0.05 seconds.
Search: Posts Made By: knowbodynow
Forum: CorelDRAW/Corel DESIGNER VBA 14-03-2020, 18:48
Replies: 0
Views: 1,803
Posted By knowbodynow
W10 X6 shortcut problem

I have the following code run when I press shift and the fkey:

Sub DupDown() 'Shift+F

Set sr = ActiveSelectionRange

If sr.Count = 0 Then
MsgBox "Nothing selected"
Exit...
Forum: CorelDRAW/Corel DESIGNER VBA 22-04-2019, 19:44
Replies: 1
Views: 4,313
Posted By knowbodynow
What kind of text? Under what circumstances? The...

What kind of text? Under what circumstances? The following macro works with x6. For selected artistic text if the character spacing is 0 it makes it 200. if the spacing is not 0 then it makes it 0:
...
Forum: CorelDRAW/Corel DESIGNER VBA 04-01-2019, 17:29
Replies: 1
Views: 3,065
Posted By knowbodynow
How to show Folder dialog box

Does this old thread (https://forum.oberonplace.com/showthread.php?t=479&highlight=browse)help?
Forum: CorelDRAW/Corel DESIGNER VBA 11-05-2018, 18:37
Replies: 5
Views: 2,536
Posted By knowbodynow
Sorry I don't understand the question. If you...

Sorry I don't understand the question. If you have used ActiveDoucment,ClearSelection then the shape count should be 0.


Sub count()

MsgBox ActiveSelection.Shapes.count

End Sub
Forum: CorelDRAW/Corel DESIGNER VBA 29-04-2018, 18:51
Replies: 1
Views: 1,805
Posted By knowbodynow
This is the best I've been able to come up with: ...

This is the best I've been able to come up with:

ActiveDocument.Save

For i = 1 To 5
ActiveDocument.Pages.First.Delete
Next i

ActiveDocument.SaveAsCopy newname
ActiveDocument.Revert
Forum: CorelDRAW/Corel DESIGNER VBA 29-04-2018, 14:23
Replies: 1
Views: 1,805
Posted By knowbodynow
Save Part of A Document?

Suppose the current document has 10 pages. Is there anyway save the last 5 pages to a separate file? Thanks.
Forum: CorelDRAW/Corel DESIGNER VBA 25-03-2018, 08:28
Replies: 24
Views: 22,237
Posted By knowbodynow
It works but I don't find it useful at all....

It works but I don't find it useful at all. Sorry, don't know how to get the cursor working.
Forum: CorelDRAW/Corel DESIGNER VBA 20-03-2018, 15:59
Replies: 24
Views: 22,237
Posted By knowbodynow
Not sure if this is relevant or will work with...

Not sure if this is relevant or will work with Coreldraw 2017 but this is the basic code I use for replacing objects with copies of another. The first object selected is the one that will replace all...
Forum: CorelDRAW/Corel DESIGNER VBA 19-03-2018, 09:40
Replies: 5
Views: 2,659
Posted By knowbodynow
Glad it worked, thanks for the Guinness, haven't...

Glad it worked, thanks for the Guinness, haven't had a real one in over 20 years!
Forum: CorelDRAW/Corel DESIGNER VBA 13-03-2018, 17:48
Replies: 1
Views: 1,623
Posted By knowbodynow
Solved - already covered

Found an old pos (https://forum.oberonplace.com/showthread.php?t=6459&highlight=characters)t with solutions by Michael Cervantes and Shelby. Thanks to both.
Forum: CorelDRAW/Corel DESIGNER VBA 13-03-2018, 17:32
Replies: 4
Views: 2,447
Posted By knowbodynow
Glad you got it working., Can't find anything...

Glad you got it working., Can't find anything about an AlignAndDistribute command in X6 help, guess it is new. It's always annoying and time-consuming when old, trusted methods are broken by...
Forum: CorelDRAW/Corel DESIGNER VBA 13-03-2018, 02:29
Replies: 5
Views: 2,659
Posted By knowbodynow
Try this (seemed to work using X6): Sub...

Try this (seemed to work using X6):

Sub AlignGroupToObject()

Dim sr As ShapeRange
Dim s as shape

If ActiveDocument Is Nothing Or ActiveSelection.Shapes.Count = 0 Then Exit Sub

Set sr =...
Forum: CorelDRAW/Corel DESIGNER VBA 13-03-2018, 01:14
Replies: 1
Views: 1,623
Posted By knowbodynow
Make vertical text X6 (no service packs)

How to change the artistic shape "cat" into:

c
a
t
?

The change texext to vertical button merely rotates the text 90 degrees. I want to make vertical text without rotating the characters....
Forum: CorelDRAW/Corel DESIGNER VBA 10-03-2018, 03:20
Replies: 4
Views: 2,447
Posted By knowbodynow
I doubt this will make a difference but have you...

I doubt this will make a difference but have you tried setting the reference point at the beginning of your code:

ActiveDocument.ReferencePoint = cdrCenter
Forum: CorelDRAW/Corel DESIGNER VBA 07-03-2018, 18:37
Replies: 3
Views: 2,217
Posted By knowbodynow
Further investigation has revealed that there is...

Further investigation has revealed that there is a problem using p.name. if I put the page name into a string variable and use that it works. I suspect some bug with the version of X6 I am using (no...
Forum: CorelDRAW/Corel DESIGNER VBA 07-03-2018, 18:05
Replies: 3
Views: 2,217
Posted By knowbodynow
Objectdata Name from Page Names?

Thanks but with that code I get an "Object variable or with block variable not set" error message for:

s.name = p.name
Forum: CorelDRAW/Corel DESIGNER VBA 05-03-2018, 00:21
Replies: 3
Views: 2,217
Posted By knowbodynow
ObjectData from Page Names?

I want to rename objects from page names if the page name contains a space. Can anyone tell me why this isn't working:


Sub SetObjectNamesFromPageNames()

Dim p As Page
Dim s As Shape
...
Forum: General 04-03-2018, 06:13
Replies: 0
Views: 3,323
Posted By knowbodynow
X6 Object Data

How to set the default for Object Data fields so that there is only name? I want to remove all the other fields. I've been messing around with the field editor but can't get fields to stay deleted....
Forum: Corel Photo-Paint VBA 10-12-2017, 14:41
Replies: 0
Views: 6,227
Posted By knowbodynow
Chnage Earser Size

Is it possible to change the size of the eraser by using vba? I'm using X6. I looked at the help file and saw something in there about corelscript but couldn't figure out how to get it to work....
Forum: General 15-01-2017, 06:46
Replies: 1
Views: 4,027
Posted By knowbodynow
X8 Verdict?

Is anyone using X8. Is it a massive improvement over X6? Has the activation process been changed at all. I'm still using X6 without service packs because I didn't like the new TOS that came with the...
Forum: CorelDRAW/Corel DESIGNER VBA 15-01-2017, 06:21
Replies: 1
Views: 1,903
Posted By knowbodynow
X6 Changecase problem?

If I run the following code with CorelDraw X6 (no service packs) then the changecase fails - it deletes the word. Is this a known bug? Or a problem with the code? Thanks.

Sub TestChangeCase()

...
Forum: CorelDRAW/Corel DESIGNER VBA 27-05-2016, 17:31
Replies: 1
Views: 2,337
Posted By knowbodynow
Found it! ActiveShape.Text.Frames.Count > 1

Found it!
ActiveShape.Text.Frames.Count > 1
Forum: CorelDRAW/Corel DESIGNER VBA 27-05-2016, 16:56
Replies: 1
Views: 2,337
Posted By knowbodynow
X6 Detect Paragraph overflow?

Not sure about the terminology but is there any code to detect if paragraph text flows from more than one paragraph box. This can be seen by the user - when selected the bottom middle square handle...
Forum: CorelDRAW/Corel DESIGNER VBA 28-02-2016, 22:48
Replies: 2
Views: 2,903
Posted By knowbodynow
Thanks, I figured out something using Object...

Thanks, I figured out something using Object Properties.
Forum: CorelDRAW/Corel DESIGNER VBA 28-02-2016, 19:39
Replies: 2
Views: 2,903
Posted By knowbodynow
Assigning colours from clipboard

If I have a hex value copied to the clipboard does anyone know how to use that value and change the colour of a selected object's fill. Thanks.
Showing results 1 to 25 of 431

 
Forum Jump

All times are GMT -5. The time now is 04:57.


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