Ссори, забыл уточнить.
текст ставится через vba
Set shе = ActiveLayer.CreateArtisticText(x, y, 20, , , "Arial", 0, , , , cdrCenterAlignment)
так вот эти Х и Y задают координаты угла. а надо чтобы они воспринимались как координаты центра.
поэтому, к сожалению, обведенное красненьким тут не поможет ((