目的

这篇教程将教会你使用 CorelDRAW 来编写一个只有1行VBA代码的入门程序,其效果是:在文档中创建了任意图形后,会弹出一个消息框,显示“Hello, World!”。

下面将演示如何用 CorelDRAW 软件来开发这样的程序,本教程使用 CorelDRAW X7 版本,如果你的机器上还没有安装这款软件,请自行百度搜索安装,或者到此页面下载安装:http://www.ddooo.com/softdown/50548.htm ,对应的注册机下载地址:http://www.ddooo.com/softdown/50549.htm 。(该下载页面为第三方下载页面,不保证链接永久有效)

注意:你安装的 CorelDRAW 软件必须要安装VBA。Win10系统中,X6及以下版本,菜单栏可能会出现空白,这是系统不兼容的原因,可以考虑更换为 X7 版本。

一、创建文档

打开 CorelDRAW X7,执行文件菜单下的“新建”命令,文档名设置为“HelloWorld”,然后点击确定按钮完成创建。如下图所示:

二、打开宏编辑器,编写VBA代码

执行工具菜单下的“宏 > 宏编辑器”命令或者按 Alt + F11 快捷键打开宏编辑器界面,如下图所示:

在宏编辑器左侧,找到当前文档(名称中有 HelloWorld 的那个),双击 ThisDocument 进入代码编辑窗口,在代码窗口的顶端,左侧的下拉框选择 Document,右侧的下拉框选择 ShapeCreate。在对应的事件中加入下面的代码:

MsgBox "Hello, World!"

如下图所示:

三、运行程序

关闭(或不关闭)宏编辑器,切换到文档界面,在工具箱中使用矩形工具,在页面上随便绘制一个矩形,会发现图形创建后,弹出了消息框,显示“Hello World!”,如下图所示。

到此为止,我们的第一个程序就完成了。你可以再试试创建其他的图形(包括美术字文本),观察是否会弹出消息框。

小结

  • 宏编辑器是用来编写和调试VBA代码的地方。
  • 每次创建一个文档,都会有和该文档关联的VBA工程(本例中,对应的宏工程是 VBAProject (HelloWorld))。
  • VBA工程中,ThisDocument 指的是当前文档。
  • 代码编辑窗口中,顶部左侧的下拉框的作用是用来选择对象,右侧的下拉框是用来选择对象相关的事件(本例中,使用的是 Document 对象的 ShapeCreate 图形创建事件)。

原创声明:本文首发于个人CorelDRAW VBA博客,请尊重文章版权。
转载请注明原文链接:http://www.cdrvba.com/coreldraw-vba-hello-world/


CorelDRAW VBA - CSDN文章专栏:https://blog.csdn.net/column/details/27356.html

CorelDRAW VBA - 第一个Hello World程序相关推荐

  1. CorelDRAW VBA - 在图层上创建一个新的OLE对象 Layer.CreateOLEObject

    Layer.CreateOLEObject 方法用来在图层上创建一个新的OLE对象. 参数说明 参数 描述 ObjectID 指定OLE对象的ID DisplayAsIcon 指定是否将OLE对象显示 ...

  2. CorelDRAW VBA - 遍历文档、页面、图层和形状对象

    目的 本文介绍CorelDRAW VBA代码遍历文档.页面或图层中所有对象的相关操作代码,有时候程序可能需要查找页面上的对象,用遍历的方式可实现批量查找.检索对象. 准备文档 创建1个新文档,添加两个 ...

  3. CorelDRAW VBA - 读取XML文件,根据内容批量创建图形

    目的 这篇教程将教会你如何使用 CorelDRAW VBA 来读取 XML 文件,并通过读取的内容来动态创建指定宽度和高度的矩形. 准备一个XML文件 打开记事本,粘贴以下内容,然后保存文件,文件名输 ...

  4. 如何编辑程序(一个简单的程序)

    如何编辑程序(一个简单的程序) 运行Excel程序,创建一个新的站长工作簿(格式.xlsm),进入VBE,让我们开始编写一个站长列表的程序.程序运行后,一个对话框显示"你好,欢迎来到VBA& ...

  5. CorelDRAW VBA - 打开文件(另存为)对话框

    本文介绍在 CorelDRAW VBA中使用官方原生工具 CorelScriptTools 调用文件对话框,选择文件并获得文件路径的VBA代码.其提供的 GetFileBox 方法可用来打开文件对话框 ...

  6. python自定义函数求差_[VBA]发布一个计算桩号之差的Excel自定义函数(VBA)

    这是一个可以计算桩号之差(也就是得到长度)的Excel(或WPS)扩展函数,可以减少工程师在统计工程量时的工作量. 该函数具有一定的通用性.可以在MS Office和金山WPS上使用. 文末会给出使用 ...

  7. CorelDRAW VBA - 创建美术字文本并沿着形状路径排列

    目的 这篇教程将教会你使用 CorelDRAW VBA代码在文档中创建美术字文本,并调用 FitTextToPath 方法让文本沿着形状的路径排列. 美术字文本是一种短文本,适合显示文字内容较少(通常 ...

  8. 构建一个移动应用程序要花多少钱?

    构建一个移动应用程序要花多少钱? How much does it cost to build a mobile app? 不幸的是,对于一个移动应用程序的开发成本应该是多少这个问题,没有一个单一的答 ...

  9. 在纸上写好一个c语言程序后,上机运行的基本步骤为,c基本概念(选择题).docx

    PAGE / NUMPAGES 一.单选题 1.下面叙述中正确的是: (A) 在C语言程序中,main()函数必须放在程序的开始位置 (B) 在C语言程序中,要调用的函数必须在main()函数中定义 ...

最新文章

  1. Spring事务失效的原因
  2. Linux内核中影响tcp三次握手的一些协议配置
  3. 【转】C#Static类和Static构造函数
  4. yum安装与源码编译安装实际使用区别
  5. Enum in C#
  6. Oracle BCT(Block Change Tracking)与增量备份
  7. 行连接和列连接的区别
  8. android手机无法开机自动启动,手机无法开机怎么刷机?安卓手机救砖教程
  9. vue时间过滤器(moment)
  10. Spring Boot(八)——Shiro+FreeMarker
  11. centos8修改主机名称
  12. 从5.56*45mm NATO弹看塔科夫的数据严谨性
  13. 【上电即上华为云】华为云smart智联PLC无线网关_plc_3121N-H(3121N-IED)
  14. 漫画:猜数字说公牛母牛的高频面试题
  15. 【基础】银行间市场金融设施
  16. 《浮世绘---湖北人,你到底患了什么病》(转载)
  17. 使用Navicat将表设计导出数据库设计文档
  18. 有哪些非常好的前端网站或个人博客?
  19. Dou学网-影视号起号视频教程
  20. 第二章 自动化测试基础(下)

热门文章

  1. 腾讯视频转换mp4格式用什么转换器?电脑怎么把腾讯视频转换成mp4?
  2. 【操作系统】第三章:内存管理
  3. 铁柱学习node.js
  4. 什么是物联网?有哪些应用?终于有人讲明白了
  5. unity 关于搜索
  6. Java 数字转汉字工具类
  7. php 跳转邮箱,实例详解JS简单实现点击跳转登陆邮箱功能的方法
  8. Who owns my data(2019/4/16)
  9. 关闭占用指定端口的进程
  10. web前端学习(三):微信小程序基于H5规范,开发Android应用程序