CorelDRAW VBA - 基于矩形左下角坐标创建另一个矩形或文本

目的

这篇教程将教会你使用 CorelDRAW VBA代码基于某个矩形的左下角坐标来创建另一个矩形（或者其他你想创建的图形或者美术字文本）。

代码演示

Sub main()

    ' 变量声明
    Dim doc As Document, rectangle1 As Shape, rectangle2 As Shape

    ' 创建一个新文档
    Set doc = CreateDocument
    doc.Unit = cdrMillimeter
    'doc.ReferencePoint = cdrCenter ' 中心对齐(如果是中心对齐，则坐标系数值会不一样，可以设置为此值来观察效果)
    doc.ReferencePoint = cdrBottomLeft ' 底部靠左对齐

    ' 创建矩形1
    Set rectangle1 = ActiveDocument.ActiveLayer.CreateRectangle2(0, 0, 50, 40)
    ActiveWindow.ActiveVi