CorelDRAWX4的VBA插件开发(十)多文件编程

news/2024/11/16 5:58:02/

很多时候有若干个按钮,但是里面有相同的功能,比如上一节中所中用到的修改当前文档的度量单位为毫米这一功能,每一个功能都需要用到这个功能的时候,我们可以把它单独拉出来,放在另一个文件里面,用的时候只需要调用即可,可以有效减少代码量,让代码看起来更整洁. 而且还有一个更好的作用,就是只需要修改一次,就能在其它被调用的功能中生效.大大方便了后面的修改工作.

在宏编辑器的左上角找到我们的gms–>点击右键–>插入–>模块

在这里插入图片描述

然后修改模块名称为tool

在这里插入图片描述

然后再在这个模块里面输入转换当前文件度量单位的代码

在这里插入图片描述

Sub changeUnit()CorelDRAW.ActiveDocument.Unit = cdrMillimeter
End Sub

回到A页,把之前的代码修改一下

在这里插入图片描述

Sub 第一个插件()tool.changeUnitCorelDRAW.ActiveShape.SetSize 10, 10
End Sub

然后我们再测试一下,可以看到功能是完全相同的,说明这个调用成功了,基本这个原理,我们可以把各种常用的功能写成功能的形式,进行互相之间的调用


http://www.ppmy.cn/news/408493.html

相关文章

CorelDRAWX4的VBA插件开发(十七)一键新建折页参考线

在做印刷品的折页的时候,我们往往需要用到参考线来进行制作,这里就放上一组一键新建带出血的可选几折页的参考线功能 前面是为了方便大家了解程序所以共用一个按钮,到了这里,我们经常要用到面板,按钮有点不够用,所以这里我们新建一个新的按钮来绑定面板功能 Sub 工具面板()U…

CorelDRAWX8安装包下载 全新矢量图形编辑设计工具

CorelDRAW Graphics Suite是一款平面设计软件与矢量图形编辑工具,其应用范围十分广泛,常见于广告设计、插画设计、UI设计、服装设计等领域。CorelDRAW中功能丰富多样的绘图工具和实用的效果工具,让它在矢量图形设计上有更多的优势&#xff0c…

coreldrawx4缩略图显示不出来_CDR缩略图不显示怎么办?CorelDRAW缩略图不显示解决办法 - 优优下载站...

CorelDRAW缩略图不显示解决办法如下: 缩略图问题的主要原因,是因为安装过X4的精简版造成,所以需要先想办法卸载掉X4精简版的缩略图才行 注意:卸载x4精简版缩略图方法有下面几种,反正就是无论如何都要想办法先把X4 精简版缩略图功能卸载掉。 1、从程序菜单里完整卸载X4(如果…

CorelDRAWX4的VBA插件开发(十四)快速定位形状

.我们经常要根据一特性找到某些形状,比如 找到轮廓颜色为CMYK(0,0,0,100)的形状找到填充色为RGB的形状找到应用一特效透镜的形状并且找到以上这些内容的个数 而他里面内置了快速定位的功能query, 这一节我们共同来学习快速查找QEURY功能 先上代码: Sub 第一个插件()Dim the…

CorelDRAWX4的VBA插件开发(六)录制宏与调试

看到这一章的时候,我想你已经对整个程序的构成有了大致的了解,但是我这里介绍一点你就只会了这一点,有没有什么方法可以让你自己找到写的方法呢? 答案是有的 CORELDRAW里面集成了VBA宏的录制功能,可以很快捷的把我们的键盘和鼠标操作下的CDR过程全部录成VBA,利用这个功能,我们…

coreldrawx4缩略图显示不出来_cdr软件缩略图怎么不显示?CorelDRAW缩略图显示设置--系统之家...

[cdr下载]CorelDRAW2020官方原版下载 软件大小:700 MB授权方式:免费软件 立即下载 cdr软件缩略图怎么不显示?CorelDRAW缩略图显示设置。有网友反应在使用CorelDRAW软件的时候,刚做好的图片保存到文件夹出现cdr缩略图无法显示,自己弄了好久还是这样,求助本站,下面系统天地…

CorelDRAW X4精简版序列号大家为何对其情有独钟?x8

收集到很多人对CDR X4的版本需求量很大,CorelDRAW中文网站也在积极的为大家的需要寻求解决方式。小编总结分析喜欢CorelDRAW X4版本的人,并不是因为它的功能多么多么的完善,也不是它操作起来无比的流畅,非常的智能化,如…

CorelDRAWX4的VBA插件开发(五) 一键转曲

CorelDRAWX4的VBA插件开发(五)一键转曲 1.先展示一下转曲代码 Sub 第一个插件()CorelDRAW.ActivePage.FindShapes(Type:cdrTextShape).ConvertToCurves End Sub把之前的代码修改成上面这样,当然我直接修改,是为了方便而已,所以没有另外新增一个按钮来实现这个功能,如果你想保…