CorelDraw插件开发-GMS插件-VBA-查找相同对象-cdr插件

  VBA是基于 Visual basic发展而来的，与VB具有相似的语言结构。从语言结构上讲，VBA是VB的一个子集，它们的语法结构是一样的。VBA却没有自己独立的工作环境，它必须依附于某一个主应用程序，VBA专门用于Office的各应用程序中，如CorelDraw、Word、 Excel和Access等。VBA提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。它的编写是以子过程和函数为单位。

1.基本原理

  根据判断选择对象的类型，如果是群组类型，则对群组对象的个数、图形类型、图形高度、图形宽度、填充类型、轮廓类型、颜色等进行记录；如果不是群组对象，则对单一对象的高度、宽度、类型、填充类型、轮廓类型、颜色等进行记录；群组对象在记录完成后进入群组对象的查找处理，即分别比较记录的内容，如果有一项内容不相同，则认为与当前选择对象不相同，反之则为查找到的对象，并选择它。单一对象在记录完成后进入非群组对象的查找过程，即分别比较记录的内容，如果有一项内容不同，则认为与当前选择对象不相同，反之则为查找到的对象，并选择它。

2.算法实现

  算法代码实现流程如下所示：

Public Sub findshapes()