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

一.更改尺寸

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

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

運(yùn)行
選中某個(gè)形狀后點(diǎn)擊按鈕

我們可以看到運(yùn)行結(jié)果很不理想,我要要的是10x20mm的尺寸,但是這個(gè)尺寸卻變得比A4紙還要大,那么問題出在哪里呢,原來是因?yàn)樗J(rèn)的尺寸是用英寸來計(jì)算的,那么我們輸入的10就成了10英寸,這不是我們想要的尺寸.我們?cè)侔汛a改一下

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

我們?cè)谇懊婕由弦恍蠧orelDRAW.ActiveDocument.Unit = cdrMillimeter
就是把當(dāng)前文檔的尺寸單位改成毫米,這樣子再試一下就會(huì)現(xiàn)我們的尺寸修改成功.當(dāng)然如果你習(xí)慣用其它的單位可以自行修改.我們這里還是以印刷當(dāng)中最常用的單位毫米mm為準(zhǔn)

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

二.移動(dòng)

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

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

Move 相對(duì)于原來的位置X,Y移動(dòng),輸入0不移動(dòng)

總結(jié)

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

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