vba03-1.txt

来自「ao的一些代码集合」· 文本 代码 · 共 6 行

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