公告
本專欄的相關(guān)的文章已不在簡書同步更新劫瞳，請直接訪問 VBA探秘 官方網(wǎng)站或關(guān)注微信公眾號獲取最新文章動態(tài)捉片。
coreldraw-vba-create-rectangle
目的
這篇教程將教會你使用 CorelDRAW VBA代碼在文檔中創(chuàng)建矩形梗顺。
無論任何形狀羔杨，都是創(chuàng)建在圖層上面的汹押，圖層(Layer)對象提供了以下方法用來創(chuàng)建矩形：
- Layer.CreateRectangle
- Layer.CreateRectangle2
同樣的，正方形也是矩形吆视，用以上的方法也可以創(chuàng)建正方形。下面依次介紹這兩個方法：
CreateRectangle（基于邊距創(chuàng)建矩形）
CreateRectangle 這個方法通過使用 4 個參數(shù)來創(chuàng)建矩形酥宴，如下所示：
' 定義一個形狀對象
Dim s As Shape
' 設(shè)置當(dāng)前活動文檔的單位為毫米
ActiveDocument.Unit = cdrMillimeter
' 在當(dāng)前活動圖層創(chuàng)建一個矩形（默認(rèn)坐標(biāo)參考點是左下角啦吧，請改變 ActiveDocument.ReferencePoint 的值來嘗試不同效果）
Dim left, top, right, bottom
left = 10 ' 從文檔左邊距離1厘米處開始繪制
top = 10 ' 從距離底部距離1厘米處開始繪制
right = 40 ' 從文檔左邊距離1厘米處開始，向右一直繪制到4厘米處拙寡，相當(dāng)于矩形的寬度為3厘米（40-10）
bottom = 60 ' 從文檔底部距離1厘米處開始授滓，距離底部距離一共6厘米，相當(dāng)于矩形的高度為5厘米（60-10）
' 創(chuàng)建矩形
Set s = ActiveLayer.CreateRectangle(left, top, right, bottom)
代碼運行效果圖：
coreldraw-vba-create-rectangle-1
CreateRectangle2（基于坐標(biāo)和寬度創(chuàng)建矩形）
CreateRectangle2 這個方法基于文檔左下角的坐標(biāo)、寬度和高度來創(chuàng)建矩形般堆，如下所示：
' 定義一個形狀對象
Dim s As Shape
' 設(shè)置當(dāng)前活動文檔的單位為毫米
ActiveDocument.Unit = cdrMillimeter
' 在當(dāng)前活動圖層創(chuàng)建一個矩形（默認(rèn)坐標(biāo)參考點是左下角在孝，請改變 ActiveDocument.ReferencePoint 的值來嘗試不同效果）
Dim x, y, width, height
x = 0 ' 橫坐標(biāo)為0
y = 0 ' 縱坐標(biāo)為0
width = 100 ' 寬度10厘米
height = 20 ' 高度2厘米
' 創(chuàng)建矩形
Set s = ActiveLayer.CreateRectangle2(x, y, width, height)
代碼運行效果圖：
coreldraw-vba-create-rectangle-2
創(chuàng)建圓角矩形
以上的三個創(chuàng)建矩形的方法，都提供了額外的參數(shù)來創(chuàng)建圓角矩形淮摔，如下所示：
' 定義一個形狀對象
Dim s As Shape
' 設(shè)置當(dāng)前活動文檔的單位為毫米
ActiveDocument.Unit = cdrMillimeter
' 在當(dāng)前活動圖層創(chuàng)建一個矩形（坐標(biāo)點默認(rèn)是從左下角開始私沮，這個可以改變）
Dim x, y, width, height
x = 0 ' 橫坐標(biāo)為0
y = 0 ' 縱坐標(biāo)為0
width = 100 ' 寬度10厘米
height = 20 ' 高度2厘米
' 設(shè)置圓角為5
Set s = ActiveLayer.CreateRectangle2(x, y, width, height, 5, 5, 5, 5)
代碼運行效果圖：
coreldraw-vba-create-rectangle-3
原創(chuàng)聲明：本文首發(fā)于個人CorelDRAW VBA博客，請尊重文章版權(quán)噩咪。
轉(zhuǎn)載請注明原文鏈接：http://www.cdrvba.com/coreldraw-vba-create-rectangle
