vba13-1.txt

一个基于ARCGIS的VBA开发代码,本人用它做过很多VBA开发,非常不错!

Dim pMxDocument As IMxDocument
Dim pMaps As IMaps
Dim pMap As IMap
Set pMxDocument = Application.Document
Set pMaps = pMxDocument.Maps
Set pMap = New Map
pMap.Name = "My New Map"
pMaps.Add pMap