公告

---

本专栏的相关的文章已不在简书同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-use-command-group

目的

本文介绍CorelDRAW VBA命令组的使用，命令组可以使得操作被记录，允许撤销(Undo))和重做(Redo)。

什么是命令组

命令组(Command Group)，即一系列命令的组合。如果需要，一个命令组甚至可以包含上百个命令。
创建命令组可以使你编写的宏程序看起来完全集成到应用程序中。

下面代码演示了命令组的基本使用方法：

Dim sh As Shape
' 开始命令组
ActiveDocument.BeginCommandGroup "创建椭圆并转曲线"
' 执行第1个操作（创建椭圆）
Set sh = ActiveLayer.CreateEllipse(0, 1, 1, 0)
' 执行第2个操作（将椭圆转曲线）
sh.ConvertToCurves
' 结束命令组
ActiveDocument.EndCommandGroup

以上的代码会在编辑菜单中设置一个“撤销创建椭圆并转曲线” 的操作。当在菜单中点击这个操作时，不仅第2个操作（将椭圆转曲线）会被撤销，第1个操作（创建椭圆）也会被撤销，因为这两个命令在同一个命令组（创建椭圆并转曲线）中。

注意：创建椭圆并转曲线 这个字符串是自己定义的，用来说明某一个操作流程是什么。

代码运行结果

代码运行结果，如下图所示：

coreldraw-vba-create-command-group

小结

使用命令组是一个高级运用技巧，在编写具体的VBA代码时，把相关的业务流程封装到多个命令组里，这样可以使得程序创建的内容更加容易撤销和维护。

---

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