面积计算

<P>有几个面状图形，想计算他们的面积，我计算的步骤是，先在属性表里添加了一个面积列，然后选中calculate value,在打开的对话框里粘贴面积计算公式</P>
<P>Dim Output as double<BR>Dim pArea as Iarea<BR>Set pArea = [shape]<BR>Output = pArea.area</P>
<P>可是出现error running vba code  为什么？请高手指导</P>

问一下，不是一样么？就是有d代替了output， 用p代替了pArea

<P>谢谢</P><img src="images/post/smile/dvbbs/em01.gif" />

<P 0cm 0cm 0pt"><FONT face="Times New Roman">dim d as double</FONT></P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">dim p as iarea</FONT></P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">set p=[shape]</FONT></P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">d=p.area</FONT></P>
<P 0cm 0cm 0pt">然后在<FONT face="Times New Roman">ArEA=</FONT>下输入</P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">d</FONT></P>
<P 0cm 0cm 0pt">点击“确认”即可<FONT face="Times New Roman">```</FONT></P>
<P 0cm 0cm 0pt">如果要换算为公顷时，在<FONT face="Times New Roman">ArEA=</FONT>下输入</P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">d/10000</FONT></P>
<P 0cm 0cm 0pt">如果要换算为亩时，在<FONT face="Times New Roman">ArEA=</FONT>下输入</P>
<P 0cm 0cm 0pt"><FONT face="Times New Roman">d/10000*15</FONT></P>

<P>为什么呢</P>
<P>我也想求面积</P>