CorelDRAWX4的VBA插件开发(四) 用一个例子了解CORELDRAW-X4的四个基本对象

最新推荐文章于 2023-04-01 10:06:15 发布

也好先生

最新推荐文章于 2023-04-01 10:06:15 发布

阅读量1.2k

点赞数 3

分类专栏： CDRX4-VBA到C++开发-从头开始文章标签：文档资料

本文链接：https://blog.csdn.net/weixin_43716462/article/details/125369239

版权

CDRX4-VBA到C++开发-从头开始专栏收录该内容

46 篇文章

订阅专栏

这篇博客介绍了如何利用VBA在CorelDRAW X4中开发插件，通过一个实例展示了如何获取当前页面的形状数量。通过代码解释，强调了理解对象和属性的重要性，鼓励手动编写代码以熟悉程序结构。文中提到了`ActiveDocument`、`ActivePage`、`Shapes`和`Count`等关键概念。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

CorelDRAWX4的VBA插件开发(四)

用一个例子了解CORELDRAW-X4的四个基本对象

1.打开第一章的界面如下图:

在这里插入图片描述

2.把之前的代码稍作修改

Sub 第一个插件()
    Dim zongShu As Integer
    zongShu = CorelDRAW.ActiveDocument.ActivePage.Shapes.Count
    MsgBox zongShu
End Sub

在这里插入图片描述

3.测试

退出之后,新建一个空白CDR页面再点击”第一个插件”按钮,可以看到当下就显示了这个页面里面的形状个数为0,然后还可以在页面上多画个框框或者输入几个文字等等,再按按钮测试一下数字会不会变.
在这里插入图片描述

4.代码释义:

Dim 假设
zongShu 我自己随便取的名方便我自己记忆 “总数”的意思
As 为
Integer 整数

(这里插入说一下,所有的计算机语言都是以从左到右的一行为单位进行运算的,程序是一行一行运行的,这里的第二行语句在第一行运行结束之前是绝对不会运行的,它在等待上一行完成之后才开始运行)

zongShu = (这里只解释等于号)等于号就是给前面的zongShu赋值,让它等于某数
CorelDRAW 这个是CDR这个程序的总程序
. 小数点可以翻译为”里面的”(以后没有解释都按这个意思)
ActiveDocument 正在高亮中的已打开文件(比如CDR打开了多个文件,定位到当前文件)
在这里插入图片描述