Как поставить начало отсчета точно в определенное место?

[persik_55]

Можно ли точно поставить точку отсчета, т.е. ноль, например в левый верхний угол листа, или точно по центру верхнего края листа? Но не руками, а какой-нибудь комбинацией клавиш. К примеру, направляющую по центру - буква Р (англ.), а как сделать тоже самое для начала координат?

 

[lev]

Ответ: Как поставить начало отсчета точно в определенное место?

Макросами
В левый верхний угол

Sub OriginTopLeft()
 With ActiveDocument
 .DrawingOriginX = -ActivePage.SizeWidth / 2
 .DrawingOriginY = ActivePage.SizeHeight / 2
 End With
End Sub

центр верхнего края листа

Sub OriginTopCenter()
 With ActiveDocument
 .DrawingOriginX = 0
 .DrawingOriginY = ActivePage.SizeHeight / 2
 End With
End Sub

 

[wOxxOm]

Ответ: Как поставить начало отсчета точно в определенное место?

Для тех же кто боится макросов можно так:
1. двойной щелчок на инструмент прямоугольник - создаст прямоугольник точно по размеру страницы
2. включить SnapToObjects (привязка к объектам, Alt-Z)
3. тянем точку отстчета из пересечения линеек (рулерсов) в любую угловую точку квадрата

 

[lev]

Ответ: Как поставить начало отсчета точно в определенное место?

А для тех, кто не боится , оформил в виде gms.

 

[persik_55]

Ответ: Как поставить начало отсчета точно в определенное место?

Спасибо за макрос в виде GMS, это просто супер! Все так просто!