[CDR 2023] Увеличить прямоугольник в заданную сторону

[mnemonix]

Как добавить средствами VBA либо настройками Contour в Corel (сомневаюсь) +(указанное количество миллиметров) только слева и справа выделенного прямоугольника?
То есть выделенный прямоугольник и к его размерам добавить слева и справа одинаковое количество в мм, например 10-15-20..

 

[dastin]

Set sh = ActiveSelection.Duplicate
sh.SizeWidth = sh.SizeWidth + 20 ... ну или сколько там надо, с у четом, что это в обе стороны прирост

предварительно задать - что Unit в миллиметрах

 

[eugeny]

Надо увеличить выделенный прямоугольник?
Если да, то задайте точку откуда рассчитывать новый размер

ActiveDocument.ReferencePoint = cdrTopMiddle

а потом меняйте размер

sh.SizeWidth = 80