vba13-1.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 9 行

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