CorelDRAW插件--GMS插件开发--新增项目--宏录制--VBA编辑--调试技巧--CDR插件（二）

插件开发发布时间：2022-03-02 08:13:18 ，浏览量：6

文章目录

- 1 新建模块
- 2 编辑模块
- 3 宏录制
- 4 宏调试和宏运行
- 5 作者寄语

本文接着讲述GMS插件开发的相关内容，主要包含VBA脚本模块的新建GMS项目、宏录制、编辑、调试和运行。

1 新建模块

打开菜单工具\宏\宏管理器，打开宏管理器面板。如下图所示：在这里插入图片描述右键Visual Basic for Applications选项，新建宏项目。如下图所示：取名为GMSHelloWorld.gms，如下图所示：

2 编辑模块

打开菜单工具\宏\宏编辑器，打开VBA应用程序界面。或者右键ThisMacroStorage，选择编辑，打开如下图所示：在这里插入图片描述

3 宏录制

选择对应宏项目，右键设置为记录项目，如下图所示：在这里插入图片描述打开菜单工具\宏\开始记录，打开记录宏界面，命名宏为HelloWorld，如下图所示：

接下来在主界面创建一个矩形，并修改填充颜色为红色，新建一个文字对象，修改内容为知了软件。如下图所示：在这里插入图片描述

宏录制的最后需要停止宏录制，如下图所示：在这里插入图片描述

4 宏调试和宏运行

右键所在宏文件选项，既可编辑、运行和删除，如下图所示：在这里插入图片描述

编辑记录宏，如下图所示：在这里插入图片描述

源代码如下所示：

Sub HelloWorld()
    ' Recorded 2022/2/13
    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateRectangle(1.016898, 10.459555, 4.392807, 7.198736)
    s1.Rectangle.CornerType = cdrCornerTypeRound
    s1.Rectangle.RelativeCornerScaling = True
    s1.Fill.ApplyNoFill
    s1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddle
    s1.Style.StringAssign "{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""fillName"":null,""primaryColor"":""CMYK100,USER,32,219,226,0,100,00000000-0000-0000-0000-000000000000"",""type"":""1""},""outline"":{""color"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""width"":""2000""},""transparency"":{}}"
    s1.Style.StringAssign "{""fill"":{""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000"",""fillName"":null,""primaryColor"":""CMYK100,USER,32,219,226,0,100,00000000-0000-0000-0000-000000000000"",""type"":""1""},""outline"":{""color"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""width"":""2000""},""transparency"":{}}"
    Dim s2 As Shape
    Set s2 = ActiveLayer.CreateArtisticText(2.628118, 5.645047, "Text")
    s2.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    s2.Outline.SetNoOutline
    ' Recording of this command is not supported: TextUndoRedo
End Sub

记录的宏代码，可以大量减少手工键入代码的工作量，一般的功能，可以通过修改宏代码来实现。通过点击箭头所在行位置来设置断点，如下图所示：在这里插入图片描述