CorelDRAW VBA - 创建圆和椭圆

公告

---

本专栏的相关的文章已不在同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-create-ellipse

目的

这篇教程将教会你使用 CorelDRAW VBA代码在文档中创建圆形、椭圆以及开放式椭圆曲线。

无论任何形状，都是创建在图层上面的，图层(Layer)对象提供了以下方法用来创建椭圆：

• Layer.CreateEllipse
• Layer.CreateEllipse2

以上两个方法都返回一个 Shape 对象的引用，两个方法的不同之处在于传递的参数不同，请根据需要在自己的VBA代码中选择具体的方法。

下面来看看两个不同方法的区别。

CreateEllipse（基于边距创建椭圆）

CreateEllipse 这个方法通过使用 4 个参数来创建矩形，如下所示：

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个椭圆（默认坐标参考点是左下角，请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果）
Dim left, top, right, bottom
left = 10 ' 从文档左边距离1厘米处开始绘制
top = 10 ' 从距离底部距离1厘米处开始绘制
right = 40 ' 从文档左边距离1厘米处开始，向右一直绘制到4厘米处，相当于椭圆的宽度为3厘米（40-10）
bottom = 60 ' 从文档底部距离1厘米处开始，距离底部距离一共6厘米，相当于椭圆的高度为5厘米（60-10）

' 创建椭圆
Set s = ActiveLayer.CreateEllipse(left, top, right, bottom)

代码运行效果图：

coreldraw-vba-create-ellipse-1

CreateEllipse2（基于中心点和半径创建椭圆）

CreateEllipse2 方法基于中心点、水平半径和垂直半径来创建椭圆。注意：如果只给了一个半径值，那么将会创建一个圆形而不是椭圆。
请查看以下代码演示：

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个椭圆（默认坐标参考点是左下角，请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果）
Dim x, y, width, height
x = 0 ' 横坐标为0
y = 0 ' 纵坐标为0
radius_h = 100 ' 水平半径10厘米
radius_v = 20 ' 垂直半径2厘米
' 创建椭圆
Set s = ActiveLayer.CreateEllipse2(x, y, radius_h, radius_v)

代码运行效果图：

coreldraw-vba-create-ellipse-2

创建圆形

上面已经说到，创建圆形，只需要调用 CreateRectangle2 参数时，传入一个半径值即可，代码如下：

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个圆形（默认坐标参考点是左下角，请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果）
Dim x, y, width, height
x = 0 ' 横坐标为0
y = 0 ' 纵坐标为0
radius = 100 ' 半径10厘米
' 创建圆形
Set s = ActiveLayer.CreateEllipse2(x, y, radius)

代码运行效果图：

coreldraw-vba-create-ellipse-3

创建开放式椭圆曲线（例如C型曲线）

调用 CreateEllipse 方法，传入额外的参数可以创建开放式曲线，主要是通过开始角度和结束角度来控制，代码如下：

' 定义一个形状对象
Dim s As Shape

' 设置当前活动文档的单位为毫米
ActiveDocument.Unit = cdrMillimeter

' 在当前活动图层创建一个C型曲线（默认坐标参考点是左下角，请改变 ActiveDocument.ReferencePoint 的值来尝试不同效果）
Dim left, top, right, bottom, angel_start, angel_end, is_pie
left = 10
top = 10
right = 40
bottom = 60
angel_start = 60 '开始角度
angel_end = 290 '结束角度
is_pie = False ' 是否饼图

' 创建C型曲线
Set s = ActiveLayer.CreateEllipse(left, top, right, bottom, angel_start, angel_end, is_pie)

代码运行效果图：

coreldraw-vba-create-ellipse-4

---

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-create-ellipse