|
|
林相图中的标注要求5个字段,并且是分子式+右侧,如右图所示。
经过反复试验,最终标注出来了。代码如下:Function FindLabel ( [S01], [S02], [S10] , [S36], [S41] ) dim a ,b a=len([S01]) b=len([S02]) FindLabel ="<und>"&[S01] &"-" & [S02]&"</und>" & VbCrLf & space(a) &" "& space(b) & [S10] & VbCrLf & [S36]&"-"& [S41] End Function |
|