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 sx
	ActiveLayer.CreateGuide i * px / sx, 0, i * px / sx, py
Next i
' 创建纵向导线
For i = 0 To sy
	ActiveLayer.CreateGuide 0, i * py / sy, px, i * py / sy
Next i

原创声

相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值