Lock shape area

[grzjanik]

Hi.

Looking for a macro that will keep an eye on the size of the area despite the changes to the size of any side.

Looking just like this:



I'm using CorelDraw 12.

Thanks for any answers.

GrzJanik

[runflacruiser]

Hi.
I can't think of a way to do it live but calculations basing on a new entered width or height and the shapes current area should be easily doable using a proportion.
~John

[grzjanik]

Hi.
Thanks for replay.
But I would like for this to take place dynamically when you change the size of one of the sides. When I change the height to width let the match automatically.
GrzJanik.

[shelbym]

I wrote this one for X3, it may or may not work for 12. I did test it with X5, and it works fine, a few items could be improved but it is a starting point.

The code and a GMS is posted.

Fixed Area Macro

-Shelby

[runflacruiser]

Hi.
Pretty cool Shelby. I couldn't get it working on my rectangle until I converted to curves. Works ok but seems to get stuck sometimes when using handles.

It would be nice to see this work with all shapes such as irregular and circles.
~John

[grzjanik]

Hi!

Unfortunately, this macro does not work in Corel 12.
Does not report any errors, but nothing happens.
But thank you all for your reply.
I see that the Corel 12 is not possible to convert.

Regards.
~GrzJanik

[shelbym]

If it is not working or giving an error you might need to uncheck the Delay VBA Load under customization. Restart CorelDRAW and try again.

-Shelby

[grzjanik]

Thank you Shelby for trying to help, but the macro still does not work. It shows the following errors:




Excuse me, but I do not know what to do and how to fix.

Thanks for replay.

~GrzJanik

First I made only a fast look on the code line, where the error occurs. And I thought, that it looks similar to an error, which I shortly run across. The solution for me was ==> changing the code line to:

set area = s.ObjectData("Area")

But then I tried it with a little sample and maybe the following is the solution:

area = s.ObjectData("Area").Value

If nothing helps I would insert the following code to check the types:

Debug.Print TypeName(area)
Debug.Print TypeName(s.ObjectData("Area"))
Debug.Print TypeName(s.ObjectData("Area").Value)
area = s.ObjectData("Area")

Hope this helps for finding a solution,
guido

[grzjanik]

Thanks for trying to help. Unfortunately, it is still the same error and same place. Can anyone suggest anything else?

Regards.

GrzJanik