<?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,156,52" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" lineinterval="4" text="切换文字单元的粗体状态。"/>
<text name="text2" origin="10,18" bounds="8,8,38,24" autosize="true" border="0" fontname="宋体" fontsize="12" fontstyle="1" textalign="1" text="粗体"/>
<text name="text3" origin="186,186" bounds="8,88,276,236" autosize="true" border="0" fontname="宋体" fontsize="12" textalign="1" text="把选中文字单元改为粗体的代码如下：

i=0
BeginUpdate()
while i &lt; ActiveSheet.Selection.UnitCount
  d = ActiveSheet.Selection.Units[i]
  if d.Type = "text" then
    d.FontStyle = ( d.FontStyle and $E ) + 1
  end if
  i=i+1
wend
EndUpdate()"/>
<element name="element1" origin="80,68" bounds="8,56,152,80">
<text name="text4" origin="36,68" bounds="8,56,56,80" pattern="1" border="15" fontname="Times New Roman" fontsize="12" text="Text"/>
<text name="text5" origin="124,68" bounds="96,56,152,80" pattern="1" border="15" fontname="Times New Roman" fontsize="12" fontstyle="1" text="Text"/>
<line name="line1" origin="76,68" shadowvisible="true" shadowoffsetx="4" shadowoffsety="4" shadowalpha="50" linewidth="2" linecolor="$FF" endarrow="3" points="64,68,6 88,68,2"/>
</element>
</sheet>
</vg>
