vba03-2.txt

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

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 If
End Sub