vba03-1.txt

ao的一些代码集合

Sub MyMacro()
    Dim pMxDocument As IMxDocument    '地图文档
    Set pMxDocument = Application.Document    '获取当前应用程序的文档    
    MsgBox pMxDocument.FocusMap.Name    '显示当前地图的名称
End Sub