VBA是基于 Visual basic发展而来的,与VB具有相似的语言结构。从语言结构上讲,VBA是VB的一个子集,它们的语法结构是一样的。VBA却没有自己独立的工作环境,它必须依附于某一个主应用程序,VBA专门用于Office的各应用程序中,如CorelDraw、Word、 Excel和Access等。VBA提供了面向对象的程序设计方法,提供了相当完整的程序设计语言。它的编写是以子过程和函数为单位。
1.基本原理
根据判断选择对象的类型,如果是群组类型,则对群组对象的个数、图形类型、图形高度、图形宽度、填充类型、轮廓类型、颜色等进行记录;如果不是群组对象,则对单一对象的高度、宽度、类型、填充类型、轮廓类型、颜色等进行记录;群组对象在记录完成后进入群组对象的查找处理,即分别比较记录的内容,如果有一项内容不相同,则认为与当前选择对象不相同,反之则为查找到的对象,并选择它。单一对象在记录完成后进入非群组对象的查找过程,即分别比较记录的内容,如果有一项内容不同,则认为与当前选择对象不相同,反之则为查找到的对象,并选择它。
2.算法实现
算法代码实现流程如下所示:
Public Sub findshapes()<