零基础学做CorelDRAW VBA插件，零基础快速入门CorelDRAW VBA插件开发教程
从今天开贴，教大家开发CDR VBA插件的基础！都喜欢拿来主义，其实自已学点做自已想要的插件，更有趣，欢迎跟贴！第一课：2楼查看
第二课：....
应广大坛友的要求，接下来从第二课开始改为视频教学与源代码相结合的方式发布教程，文字阅读太辛苦了！
有时间的话，会把第一课改版为视频教学版的，以方便大家更轻松的学习VBA插件开发!
第一课视频教程已经补上，以后都发视频教程，第二课视频教程，会很快发上来，敬请期待!
本帖最后由 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”后缀结尾的文件，如下图所示：
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_1.png
CorelDraw安装目录下的GMS文件夹
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_2.png
创建你的第一个GMS工程
一个GMS文件，其实就是一个GMS工程。提到工程二字，读者不要感觉复杂，其实就是一个文件而已，这个文件里面包含了用户添加的窗体和各种模块，即使你为窗体添加了图片等资源，那么图片也是和窗体、模块等统一存放在这个GMS文件中。就一个文件，可以直接拷贝移植，因此很方便。GMS文件只能在VBA编辑器中进行编辑，所以你的CorelDraw必须安装VBA。
那么，如何创建一个GMS工程呢？我没有细看API文档，貌似没有什么官方的方法，最常用的就是直接拷贝一个GMS文件的副本，改一个名字就可以了，就这么简单。要注意的是，低版本的GMS文件可以在高版本的CorelDraw中使用，但是如果你在高版本的CorelDraw中保存了一个GMS文件，那么这个文件在低版本的CorelDraw中是无法使用的，切记这一点。
下面，我就以CorelDraw X4为例，贴图说明如何创建一个GMS工程。
第一步，打开你的CorelDraw X4安装目录，找到GMS文件夹。如果你不知道它安装在哪里，也不知道怎么搜索，那么请按以下图示进行。
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_03.png
1、右键单击CorelDraw程序图标，选择打开文件位置
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_04.png
2、在顶部的地址栏单击返回上一层目录
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_05.png
3、进入Draw目录
http://www.zebe.me/wp-content/uploads/2016/01/coreldraw_gms_01.png
4、GMS目录就在这里了
5，在桌面新建一个TXT文件，并把它的后辍名改为GMS，这样就新建了一个GMS文件，再把它复制到GMS文件夹里，这样就完成了新建GMS工程文件了
下一课，教你在这个新建的GMS文件里添加窗体与模块
快快上来吧:victory: 本帖最后由 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
我是中国人 Dim s As Shape
ActiveDocument.ResetSettings
Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, ActivePage.SizeHeight / 2, 2)
s.CreatePushPullDistortion 0, 0, 60
s.ConvertToCurves 我说呢，在CDR宏编辑里怎么也找不到新建工程的菜单。。。。:$ 不错，0基础学习这个好支持:loveliness: 零基础学会VBA编写GMS插件，这个标题挺有吸引力的，楼主打算做几集视频？ 有没有更深奥一些的东西啊
继续等第二季，建议做成视频 的，这样不用打字啊，楼主也累啊！