CorelDRAWX4的VBA插件開發(fā)(八)更改尺寸與移動

一.更改尺寸

在處理圖片的工作中用得比較多的功能就是尺寸與移動.

Sub 第一個插件()CorelDRAW.ActiveShape.SetSize 10, 20 End Sub

運行
選中某個形狀后點擊按鈕

我們可以看到運行結(jié)果很不理想,我要要的是10x20mm的尺寸,但是這個尺寸卻變得比A4紙還要大,那么問題出在哪里呢,原來是因為他默認的尺寸是用英寸來計算的,那么我們輸入的10就成了10英寸,這不是我們想要的尺寸.我們再把代碼改一下

Sub 第一個插件()CorelDRAW.ActiveDocument.Unit = cdrMillimeterCorelDRAW.ActiveShape.SetSize 10, 20 End Sub

我們在前面加上一行CorelDRAW.ActiveDocument.Unit = cdrMillimeter
就是把當(dāng)前文檔的尺寸單位改成毫米,這樣子再試一下就會現(xiàn)我們的尺寸修改成功.當(dāng)然如果你習(xí)慣用其它的單位可以自行修改.我們這里還是以印刷當(dāng)中最常用的單位毫米mm為準

Unit 是尺寸模式
cdrMillimeter 這個是枚舉的毫米
SetSize 就是更改尺寸功能,后面的一個數(shù)是寬,第二個是高

二.移動

稍微修改一下,把當(dāng)前選中圖像往X軸方向移動10mm,Y軸方向原封不動

Sub 第一個插件()CorelDRAW.ActiveDocument.Unit = cdrMillimeterCorelDRAW.ActiveShape.Move 10, 0 End Sub

Move 相對于原來的位置X,Y移動,輸入0不移動

總結(jié)

以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(八)更改尺寸与移动的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。