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