CorelDRAW VBA - 使用两个点在图层上创建一个导线（辅助线） Layer.CreateGuide

Layer.CreateGuide 方法用来在图层上使用两个点创建一个导线（辅助线），本文演示使用导线将页面分成 4 * 8个矩形。

参数说明

参数	描述
x1	为定义导线的第一个点指定x坐标。此值以文档单位度量。
y1	为定义导线的第一个点指定y坐标。此值以文档单位度量。
x2	指定定义导线的第二个点的x坐标。此值以文档单位度量。
y2	为定义导线的第二个点指定y坐标。此值以文档单位度量。

VBA参考代码

下面的VBA示例使用导线将页面分成 4 * 8个矩形。

' 定义常量
Const sx As Long = 4
Const sy As Long = 8
' 声明变量
Dim i As Long
Dim px As Double, py As Double
' 得到当前页面的宽度、高度
px = ActivePage.SizeWidth
py = ActivePage.SizeHeight
' 创建横向导线
For i = 0 To