getting object position via vba

[paperjams]

Hello,
I'm working on designing an app that consists of a single background and many many buttons.
I have the look layed out in paintshop pro 2020, and I would like to get the positions of all the buttons.
Each element is in it's own layer.
The background is it's own layer/object and each button is it's own layer.
Is there a way to get the position of each button relative to the size of the entire image?

Also the buttons are created automatically by a script that uses TextTool as captured from the macro recorder. What i'm encountering sometimes is that the font size is to big and overruns the button. How would I detect this and scale back the font size?
-james

[LeviFiction]

To get the rectangle to represents any selected object the command is GetVectorSelectionRect

Code: Select all

    info = App.Do( Environment, 'GetVectorSelectionRect', {})

That returns a dictionary with one of the keys being 'VectorRect'. This returns a tuple (non-editable array) of three values: 0) Another tuple of 2 values (x,y), 1) Width, 2)Height.

Code: Select all

    info = App.Do( Environment, 'GetVectorSelectionRect', {})
    x,y = info['VectorRect'][0]
    width,height = info['VectorRect'][1], info['VectorRect'][2]

As for text.

If you know the size of the object you're comparing the size of the text to, you can easily just check the rectangles and then use the TextEx command to change the size of the text, and then recheck until it comes out how you want.

[paperjams]

Thanks that makes sense and now for the embarrassing part.
I'm using photo-paint 2020 which would explain why the docs didn't match up...

The concept should still apply, just need to find the commands for it in the correct product documentation.

[Ken Berry]

You could also register again in the CorelDRAW community at https://community.coreldraw.com/ It looks after Photo-Paint, not us.

[paperjams]

sounds good, I will head over there.
Sorry for the noise.