CorelDRAW VBA - 使用左上角的坐标、宽度、高度和角半径在图层上创建矩形 Layer.CreateRectangle2

Layer.CreateRectangle2 方法用来在图层上使用左上角的坐标、宽度、高度和角半径在图层上创建矩形,本文演示创建两个矩形之间的混合。中间混合对象会被旋转360°。

参数说明

参数 描述
x 在文档单位中,指定左上角坐标的水平位置
y 在文档单位中,指定左上角坐标的垂直位置
Width 指定文档单位中的水平度量
Height 指定文档单位中的垂直度量
RadiusUL 指定左上角的实际角半径测量值。此参数是可选的,其默认值为0。
RadiusUR 指定右上角的实际角半径测量。此参数是可选的,其默认值为0。
RadiusLR 指定右下角的实际角半径测量。此参数是可选的,其默认值为0。
RadiusLL 指定左下角的实际角半径测量。此参数是可选的,其默认值为0。

VBA参考代码

下面的VBA示例创建两个矩形之间的混合。中间混合对象会被旋转360°。

' 声明变量
Dim s1 As Shape, s2 As Shape
' 创建第一个矩形
Set s1 = ActiveLayer.CreateRectangle2(0, 0, 3, 1)
s1.Fill.UniformColor.RGBAssign 255, 0, 0
' 创建第二个矩形
Set s2 =
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值