<?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,414,340" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="选中当前页面上未被选中的图形。
此功能的实现需要编写下面这段代码：
g = Array()
i = 0
while i &lt; ActiveSheet.UnitCount
  d = ActiveSheet.Units[i]
  if d.Visible and ( not d.Locked ) and ( not d.IsSelected() ) then
    g.Add( d )
  end if
  i = i + 1
wend
BeginUpdate()
ActiveSheet.Selection.Clear()
i = 0
while i &lt; g.Count
  ActiveSheet.Selection.Add( g[i] )
  i = i + 1
wend
EndUpdate()"/>
<text name="text2" origin="10,18" bounds="8,8,38,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="反选"/>
</sheet>
</vg>
