<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<text name="text1" origin="146,74" bounds="8,32,1332,276" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="页面上被选择的一组图形ActiveSheet.Selection叫做选择组。当文件被关闭后，图形被选择的状态并未保存。
ActiveSheet.AddGroup函数可以根据选择组创建成对应的单元组，这种单元组可以保存到文件中，下次打开文件后还可以使用。单元组的目的是为了方便对图形进行分组管理。选择组也是一种特殊的单元组。单元组的一切函数和方法都适用于选择组。
在集成环境中，首先要选择一组单元，然后选菜单“页面\单元组管理”，才能据此建立单元组。
当前活动页面上一共有ActiveSheet.GroupCount个单元组，AGroup = ActiveSheet.Groups[0]返回第一个单元组。
ActiveSheet.DeleteGroup( AGroup )删除该单元组。注意，删除单元组并不删除它包含的图形。
单元组中的元素顺序可以按位置关系重新排序，方法是调用AGroup.Sort函数，它不会改变这些元素在页面上的实际相对位置。
一个图形单元可以同时存在于多个单元组中，也就是说，页面上的图形可以自由分组。
如果某单元删除，包含它的单元组会自动更新。
灵活应用单元组，可以方便程序的编写。
例如下面这段程序给单元组AGroup中的每个文字单元赋值。
i=0
while i &lt; AGroup.UnitCount
  AGroup.Units[i].Text = ( i * i ).ToString()
  i = i + 1
Wend"/>
<text name="text2" origin="10,18" bounds="8,8,77,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="单元组管理"/>
</sheet>
</vg>
