大家好,我们今日讲解“VBA信息获取与处理”教程中第十九个专题“工作表中对SHAPE信息的获取及处理”的第3节“工作表中图形的组合”,这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序文件。第三节 工作表中图形的组合
大家好,我们这讲的内容是实现工作表中图形的组合。这块内容在实际的工作中应用不是很多,但对于图形操作的代码是不可缺少的部分。我们也可以掌握一下。
1 实现形状组合的基本实现语句
1)ShapeRange.Group方法,将指定区域中的形状形成一组,返回值是一个代表组合形状的shape对象。
语法:expression.Group
Expression为一个代表ShapeRange对象的变量。
备注:由于一组形状作为单个形状处理,所以创建和分解形状组将更改 Shapes 集合中的项目数,并更改集合中受影响的项目之后的项目索引号。
2)Shape.Placement属性,返回或设置一个XlPlacement值, 它代表对象附加到其下的单元格的方式。
语法:expression.Placement
Expression为一个代表Shape对象的变量。
XlPlacement值:
Name	值	说明(英语)	说明
xlFreeFloating	3	Object is free floating.	对象自由浮动。
xlMove	2	Object is moved with the cells.	对象随单元格移动。
xlMoveAndSize1 Object is moved and sized with the cells. 对象随单元格移动和调整大小。
2)Shape.Ungroup方法,取消指定的形状或形状范围中所有组合的形状的组合。取消指
定形状或形状区域中图片和 OLE 对象的组合,返回一个代表未分组形状的ShapeRange对象。
语法:expression.Ungroup
Expression为一个代表Shape对象的变量。
示例1:以下示例取消组合myDocument中的所有组合形状,并分解所有的图片和 OLE 对象。
Set myDocume