vba03-4.txt

ao的一些代码集合

Sub MyMacro()
    Dim pMxDocument As IMxDocument    '获取当前应用程序的文档
    Dim pMaps As IMaps    '地图集
    Dim pMap As IMap    '地图
    On Error GoTo SUB_ERROR    '错误处理
    Set pMxDocument = Application.Document    '获取当前应用程序的文档
    Set pMaps = pMxDocument.Maps    '获取当前地图文档的地图集
    Set pMap = pMaps.Item(1)    '获取该地图集中的第一幅地图
    MsgBox pMap.Name    '显示该地图的名称
    Exit Sub
SUB_ERROR:    '行标签
    MsgBox "Error: " & Err.Number & "-" & Err.Description    '显示错误数和错误信息
End Sub