CorelDRAWX4的VBA插件开发(八)更改尺寸与移动

CorelDRAWX4的VBA插件开发(八)更改尺寸与移动

一.更改尺寸

在处理图片的工作中用得比较多的功能就是尺寸与移动.

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

运行
选中某个形状后点击按钮

我们可以看到运行结果很不理想,我要要的是10x20mm的尺寸,但是这个尺寸却变得比A4纸还要大,那么问题出在哪里呢,原来是因为他默认的尺寸是用英寸来计算的,那么我们输入的10就成了10英寸,这不是我们想要的尺寸.我们再把代码改一下

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

我们在前面加上一行CorelDRAW.ActiveDocument.Unit = cdrMillimeter
就是把当前文档的尺寸单位改成毫米,这样子再试一下就会现我们的尺寸修改成功.当然如果你习惯用其它的单位可以自行修改.我们这里还是以印刷当中最常用的单位毫米mm为准

Unit 是尺寸模式
cdrMillimeter 这个是枚举的毫米
SetSize 就是更改尺寸功能,后面的一个数是宽,第二个是高

二.移动

稍微修改一下,把当前选中图像往X轴方向移动10mm,Y轴方向原封不动

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

Move 相对于原来的位置X,Y移动,输入0不移动