VBA+AO入门50例完全注释版.docVIP

VBA+AO入门50例完全注释版 1.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Set pMxDocument = Application.Document????获取当前应用程序的文档????????MsgBox pMxDocument.FocusMap.Name????显示当前地图的名称End Sub 2.Sub MyMacro()????Dim pMxDocument As IMxDocument????地图文档????Dim pMaps As IMaps????地图集????Dim pMap As IMap????地图????Set pMxDocument = Application.Document????获取当前应用程序的文档????Set pMaps = pMxDocument.Maps????获取当前地图文档的地图集????If pMaps.Count 1 Then????如果该地图集的地图数大于1????????Set pMap = pMaps.Item(1)????获取该地图集中的第一幅地图????????MsgBox pMap.Name????显示该地图的名称????End IfEnd Sub 3.Sub MyMacro()????Dim pM