CorelDRAW VBA - 创建圆和椭圆

目的

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

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

• Layer.CreateEllipse
• Layer.CreateEllipse2

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

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

CreateEllipse（基于边距创建椭圆）

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

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

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

' 在当前活动图层创建一个椭圆（默认坐标参考