日期：
来源：GIS前沿收集编辑：GISAI
直接写，长度超过4自动换行，[name]是字段。
Function FindLabel ( [NAME] )n=len([NAME])if (n<5) thenFindLabel = [NAME]elseFindLabel = left([NAME],4) & vbnewline & right([NAME],n-4)end ifEnd Function
写成函数
Function myFind(NAME,wd)n=len(NAME)if (n<wd+1) thenmyFind = NAMEelsemyFind = left(NAME,wd) & vbnewline & right(NAME,n-wd)end ifEnd FunctionFunction FindLabel([NAME])FindLabel= myFind([NAME],4)End Function
字段是name，4，可以修改5等。
效果如下：
文章授权转载公众号：GISAI（原名：gisoracle）
版权归原作者所有
- END -
遥感卫星影像处理流程
大规模遥感影像信息提取如何提升效率、保证精度？
香！好用图源！ArcGIS、QGIS、奥维、图新...都能免费调用的高清亚米级图源
正式发布！《倾斜数字摄影测量技术规程》《实景三维地理信息数据倾斜摄影测量技术规程》等17项行业标准