В качестве дополнения к статье о том, как создать направляющие вдоль границ документа в макросе Corel PHOTO-PAINT, хочу рассмотреть вариант создания направляющих, проходящих через центр документа.

Для этого достаточно передать функции CreateGuide() координаты точки центра документа. Однако класс Document не предоставляет свойства или функции для получения этих значений, поэтому их надо вычислить:

• X: Document.SizeWidth / 2;
• Y: Document.SizeHeight / 2.

Sub CreateGuidesCenterPage()
    Dim doc As Document
    Set doc = Application.ActiveDocument
    doc.CreateGuide pntGuideHorizontal, doc.SizeWidth / 2, doc.SizeHeight / 2
    doc.CreateGuide pntGuideVertical, doc.SizeWidth / 2, doc.SizeHeight / 2
End Sub

При желании можно упростить код и не выполнять вычисления координаты X для точки, через которую проходит горизонтальная направляющая, и не выполнять вычисление координаты Y для точки, через которую проходит вертикальная направляющая.

Sub CreateGuidesCenterPage()
    Dim doc As Document
    Set doc = Application.ActiveDocument
    doc.CreateGuide pntGuideHorizontal, 0, doc.SizeHeight / 2
    doc.CreateGuide pntGuideVertical, doc.SizeWidth / 2, 0
End Sub