CorelDRAWX4的VBA插件开发(八)更改尺寸与移动
生活随笔
收集整理的這篇文章主要介紹了
CorelDRAWX4的VBA插件开发(八)更改尺寸与移动
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
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 SubMove 相對于原來的位置X,Y移動,輸入0不移動
總結(jié)
以上是生活随笔為你收集整理的CorelDRAWX4的VBA插件开发(八)更改尺寸与移动的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: INF DestinationDirs
- 下一篇: 下docfetcher先下Java,Do