零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程

存心 · 发表于 2016-5-27 12:30:24

从今天开贴，教大家开发CDR VBA插件的基础！都喜欢拿来主义，其实自已学点做自已想要的插件，更有趣，欢迎跟贴！
   第一课：2楼查看
   第二课：....
应广大坛友的要求，接下来从第二课开始改为视频教学与源代码相结合的方式发布教程，文字阅读太辛苦了！
有时间的话，会把第一课改版为视频教学版的，以方便大家更轻松的学习VBA插件开发!
第一课视频教程已经补上，以后都发视频教程，第二课视频教程，会很快发上来，敬请期待!

存心 · 发表于 2016-5-27 12:51:09

本帖最后由 cyl010001 于 2016-5-27 13:30 编辑

CorelDraw VBA插件开发入门基础第一课：创建GMS工程

VBA是什么

VBA，即Visual Basic for Applications，是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能。微软的Office系列软件本身就是基于VB语言开发的，所以Office软件都带有VBA功能。

安装CorelDraw时，网上下载的某些版本会提示你是否安装VBA，如果你要用到VBA的功能，就一定要安装VBA。如果是官方原版安装，则默认是安装了VBA功能的。

GMS是什么

G和M分别代表的是global和macro，全局宏的意思，S是啥意思本人也不了解，就不在此误人子弟了。读者只需要理解GMS是CorelDraw提供的一种程序文件形式，并且可以全局使用就行了。在CorelDraw安装目录下，有一个文件夹，名称就叫做“GMS”，这就是CorelDraw存放GMS程序的地方了，如果你安装了一些插件，就会发现里面有一些以“.gms”后缀结尾的文件，如下图所示：

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(1)

登录/注册后可看大图

CorelDraw安装目录下的GMS文件夹

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(2)

登录/注册后可看大图

创建你的第一个GMS工程

一个GMS文件，其实就是一个GMS工程。提到工程二字，读者不要感觉复杂，其实就是一个文件而已，这个文件里面包含了用户添加的窗体和各种模块，即使你为窗体添加了图片等资源，那么图片也是和窗体、模块等统一存放在这个GMS文件中。就一个文件，可以直接拷贝移植，因此很方便。GMS文件只能在VBA编辑器中进行编辑，所以你的CorelDraw必须安装VBA。

那么，如何创建一个GMS工程呢？我没有细看API文档，貌似没有什么官方的方法，最常用的就是直接拷贝一个GMS文件的副本，改一个名字就可以了，就这么简单。要注意的是，低版本的GMS文件可以在高版本的CorelDraw中使用，但是如果你在高版本的CorelDraw中保存了一个GMS文件，那么这个文件在低版本的CorelDraw中是无法使用的，切记这一点。

下面，我就以CorelDraw X4为例，贴图说明如何创建一个GMS工程。

第一步，打开你的CorelDraw X4安装目录，找到GMS文件夹。如果你不知道它安装在哪里，也不知道怎么搜索，那么请按以下图示进行。

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(3)

登录/注册后可看大图

1、右键单击CorelDraw程序图标，选择打开文件位置

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(4)

登录/注册后可看大图

2、在顶部的地址栏单击返回上一层目录

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(5)

登录/注册后可看大图

3、进入Draw目录

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(6)

登录/注册后可看大图

4、GMS目录就在这里了
5，在桌面新建一个TXT文件，并把它的后辍名改为GMS，这样就新建了一个GMS文件，再把它复制到GMS文件夹里，这样就完成了新建GMS工程文件了

下一课，教你在这个新建的GMS文件里添加窗体与模块

1688 · 发表于 2016-5-27 12:40:51

快快上来吧

零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程{tag}(7)

存心 · 发表于 2016-5-27 12:52:23

本帖最后由 cyl010001 于 2016-5-27 13:11 编辑

<div class="blockcode"><blockquote> Dim s As Shape
ActiveDocument.ResetSettings
Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2, 2)
s.CreatePushPullDistortion 0, 0, 60
s.ConvertToCurves

复制代码

我是中国人

admin · 发表于 2016-5-27 13:03:49

Dim s As Shape
ActiveDocument.ResetSettings
Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2, 2)

s.CreatePushPullDistortion 0, 0, 60
s.ConvertToCurves