Sub MyMacro()
    Dim pMxDocument As IMxDocument    '獲取當(dāng)前應(yīng)用程序的文檔
    Dim pMaps As IMaps    '地圖集
    Dim pMap As IMap    '地圖
    On Error GoTo SUB_ERROR    '錯誤處理
    Set pMxDocument = Application.Document    '獲取當(dāng)前應(yīng)用程序的文檔
    Set pMaps = pMxDocument.Maps    '獲取當(dāng)前地圖文檔的地圖集
    Set pMap = pMaps.Item(1)    '獲取該地圖集中的第一幅地圖
    MsgBox pMap.Name    '顯示該地圖的名稱
    Exit Sub
SUB_ERROR:    '行標(biāo)簽
    MsgBox "Error: " & Err.Number & "-" & Err.Description    '顯示錯誤數(shù)和錯誤信息
End Sub