CorelDRAW VBA - 使用形状中心、水平半径和垂直半径在图层上创建椭圆

Layer.CreateEllipse2 方法使用形状中心、水平半径和垂直半径(如果需要的话)在图层上创建椭圆。本文演示在页面中间创建一个黄色圆圈,并在其上方创建一个绿色椭圆。

参数说明

参数 描述
CenterX 在文档单元中,指定中心点的x坐标
CenterY 在文档单元中,指定中心点的y坐标
Radius1 在文档单位中,指定从中心点的x坐标到圆周的测量
Radius2 在文档单位中,指定从中心点的y坐标到圆周的测量。此参数是可选的,其默认值为0。
StartAngle 指定椭圆的起始角的度数。此参数是可选的,其默认值为90。
EndAngle 指定椭圆的结束角的角度。此参数是可选的,其默认值为90。
Pie 指定椭圆是否为饼图。此参数是可选的,其默认值为False。

VBA参考代码

下面的VBA示例在页面中间创建一个黄色圆圈,在其上方创建一个绿色椭圆。

' 定义形状和图层变量
Dim s As Shape
Dim lr As Layer
' 得到当前活动图层
Set lr = ActiveLayer
' 设置绘制原点坐标
ActiveDocument.DrawingOriginX = 0
ActiveDocument.DrawingOr
相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值