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 6 1 23 Last »
Showing results 1 to 25 of 146
Search took 0.03 seconds. Search: Posts Made By: shark
Forum: CorelDRAW/Corel DESIGNER VBA 04-01-2020, 04:05
Replies: 4
Views: 12,224
Posted By shark
Hi selectSameColor - remove line...

Hi

selectSameColor - remove line Application.CorelScript.RedrawScreen in boostFinish and add PtrSafe between Declare and Function

import_Somfile - change to ActiveLayer.Import...
Forum: CorelDRAW/Corel DESIGNER VBA 16-11-2018, 03:17
Replies: 1
Views: 5,666
Posted By shark
show your code

show your code
Forum: CorelDRAW/Corel DESIGNER VBA 16-11-2018, 03:10
Replies: 3
Views: 6,407
Posted By shark
use FindSegmentAtPoint(x,y,ofs) to find segment,...

use FindSegmentAtPoint(x,y,ofs) to find segment, then AddNodeAt ofs to create node
Forum: CorelDRAW/Corel DESIGNER VBA 13-11-2018, 03:24
Replies: 3
Views: 6,407
Posted By shark
use Segment.AddNodeAt or SubPath.AddNodeAt

use Segment.AddNodeAt or SubPath.AddNodeAt
Forum: CorelDRAW/Corel DESIGNER VBA 10-07-2018, 03:14
Replies: 11
Views: 9,996
Posted By shark
Sub FillRandShapes() Const MaxSize = 15 Const...

Sub FillRandShapes()
Const MaxSize = 15
Const MinSize = 5
Dim s As Shape, X#, Y#, w#, h#, z&
ActiveDocument.Unit = cdrMillimeter
ActivePage.GetBoundingBox X, Y, w, h
Randomize
...
Forum: CorelDRAW/Corel DESIGNER VBA 09-07-2018, 06:08
Replies: 11
Views: 9,996
Posted By shark
You may change Set s =...

You may change
Set s = ActiveLayer.CreateEllipse2(x + Rnd * w, y + Rnd * h, Rnd * MaxSize + MinSize)
to
Set s = ActiveLayer.CreatePolygon2(x + Rnd * w, y + Rnd * h, Rnd * MaxSize + MinSize, NSide,...
Forum: CorelDRAW/Corel DESIGNER VBA 06-07-2018, 01:46
Replies: 11
Views: 9,996
Posted By shark
in theory, you can add each created ellipse to...

in theory, you can add each created ellipse to the group and check the intersection with this shape-group, using Shape.Intersect. If the function returns an object, then delete the ellipse and create...
Forum: CorelDRAW/Corel DESIGNER VBA 06-07-2018, 01:40
Replies: 11
Views: 9,996
Posted By shark
Sub FillRandomCircles() Const MaxSize = 15 'max...

Sub FillRandomCircles()
Const MaxSize = 15 'max radius of ellipse, i.e. MinSize + MaxSize
Const MinSize = 5 'min radius
Dim s As Shape, x#, y#, w#, h#, z&
ActiveDocument.Unit = cdrMillimeter...
Forum: CorelDRAW/Corel DESIGNER VBA 05-07-2018, 03:20
Replies: 11
Views: 9,996
Posted By shark
It's not difficult to fill rectangle with...

It's not difficult to fill rectangle with circles. It's harder to check that the circles do not intersect
Forum: CorelDRAW/Corel DESIGNER VBA 29-06-2018, 08:37
Replies: 2
Views: 6,674
Posted By shark
faced a similar situation in X8. Solved the...

faced a similar situation in X8. Solved the problem using the prefix. MSForms.Control or something like it
Forum: Macros/Add-ons 04-06-2018, 01:52
Replies: 15
Views: 23,352
Posted By shark
works but

what version of Corel Draw do you have?
Forum: Macros/Add-ons 01-06-2018, 04:03
Replies: 15
Views: 23,352
Posted By shark
try this: Sub RemoveWasteColors() Dim c As...

try this:

Sub RemoveWasteColors()
Dim c As Color, sr As New ShapeRange, srAllShapes As ShapeRange, s As Shape
Set srAllShapes = ActivePage.Shapes.All
For Each c In...
Forum: Macros/Add-ons 28-05-2018, 02:16
Replies: 15
Views: 23,352
Posted By shark
there is no need to select all the shapes. Macro...

there is no need to select all the shapes. Macro deletes one selected shape and removes its color from the palette, if there are no more objects with the same color in current document.

if you...
Forum: Macros/Add-ons 24-05-2018, 04:05
Replies: 15
Views: 23,352
Posted By shark
delete color from palette

Sub DeleteColors()
Dim s As Shape, c As Color
Set s = ActiveShape: If s Is Nothing Then Exit Sub
If s.Fill.Type <> cdrUniformFill Then Exit Sub
Set c = s.Fill.UniformColor
...
Forum: Macros/Add-ons 18-05-2018, 05:31
Replies: 15
Views: 23,352
Posted By shark
Hi If you programmatically delete shape then...

Hi
If you programmatically delete shape then you can check if there are any other objects of the same color left. And then delete this color from palette
Forum: CorelDRAW/Corel DESIGNER VBA 18-05-2018, 05:18
Replies: 5
Views: 7,096
Posted By shark
No. Object "shape" can be a "group" or...

No. Object "shape" can be a "group" or "powerclip" and contain other objects. If you have selected some shapes and want to work with them, then use ShapeRange
Forum: CorelDRAW/Corel DESIGNER VBA 17-05-2018, 02:29
Replies: 5
Views: 7,096
Posted By shark
use ActiveSelectionRange Sub test() Dim sr as...

use ActiveSelectionRange
Sub test()
Dim sr as ShapeRange
Set sr = ActiveSelectionRange
ActiveDocument.ClearSelection
MsgBox sr.Count
End Sub
Forum: CorelDRAW/Corel DESIGNER VBA 20-03-2018, 03:17
Replies: 5
Views: 6,831
Posted By shark
slightly improved code (:

Sub CenterGroup()
Dim s As Shape, sr As ShapeRange
Set sr = ActiveSelectionRange: If sr.Count = 0 Then Beep: Exit Sub
Set s = sr.FirstShape: sr.Remove 1 'align to bottom shape
...
Forum: CorelDRAW/Corel DESIGNER VBA 07-03-2018, 01:19
Replies: 3
Views: 7,299
Posted By shark
try this

Sub SetObjectNamesFromPageNames()

Dim p As Page
Dim s As Shape

For Each p In ActiveDocument.Pages

If InStr(p.name, " ") > 1 Then
set s =...
Forum: CorelDRAW/Corel DESIGNER VBA 12-07-2017, 03:48
Replies: 3
Views: 5,498
Posted By shark
Curve consists of nodes. Therefore you may use:...

Curve consists of nodes. Therefore you may use: Curve.Nodes.First and .Last
Every node have a PositionX and PositionY.

Dim s As Shape, x1#, y1#, x2#, y2#
Set s = ActiveShape
...
Forum: CorelDRAW/Corel DESIGNER VBA 28-06-2017, 02:35
Replies: 4
Views: 6,932
Posted By shark
example from CorelDRAW VBA Help

Sub Test()
Dim sr As ShapeRange
Dim sp1 As SubPath, sp2 As SubPath
Dim cps As CrossPoints, cp As CrossPoint
Dim x As Double, y As Double, n As Long

Set sr = ActiveSelectionRange
If sr.Count...
Forum: CorelDRAW/Corel DESIGNER VBA 22-06-2017, 07:39
Replies: 1
Views: 5,053
Posted By shark
There are two ways to solve the problem. First -...

There are two ways to solve the problem. First - use arrays instead of regular variables. Instead x1 = 5, x2 = 3, x3 = 10 etc. use Ar(1) = 5, Ar(2) = 3, Ar(3) = 10. Then the maximum value can be...
Forum: CorelDRAW/Corel DESIGNER VBA 20-06-2017, 11:20
Replies: 1
Views: 4,999
Posted By shark
You better use ShapeRange. Dim sr As New...

You better use ShapeRange.

Dim sr As New ShapeRange, c%, i%, x#, y#, dx#, dy#
'set variables x,y, dx etc.
i = 4
for c = 0 to i
sr.Add ActiveLayer.CreateLineSegment(x, y, x + dx, y + dy)...
Forum: CorelDRAW/Corel DESIGNER VBA 12-05-2017, 05:28
Replies: 6
Views: 11,905
Posted By shark
Remove proportional sizing

Private Sub CopyWH()
Dim s As Shape, cs As Shape, w#, w1#, h#, h1#, b As Boolean, Shift&
Set cs = ActiveShape: If cs Is Nothing Then Exit Sub
cs.GetSize w1, h1 'get source size
b =...
Forum: CorelDRAW/Corel DESIGNER VBA 05-05-2017, 08:14
Replies: 1
Views: 4,596
Posted By shark
Show your code

Show your code
Showing results 1 to 25 of 146
Page 1 of 6 1 23 Last »

 
Forum Jump

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

OberonPlace.com - Archive - Top

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