Возвращает координаты центра графического объекта.
Sub GetXY(X As Double, Y As Double)
X - возвращаемое значение координаты X.
Y - возвращаемое значение координаты Y.
Положение точки, условно принимаемой за центр графического объекта, зависит от графического типа объекта.
Для символьного и текстового объекта центр совпадает с точкой привязки объекта.
Для линейного объекта центр является точкой на ломаной.
Для площадного объекта центр является точкой во внутренней области полигона.