Перемещение по карте

[Игорюха]

В ArcGIS 9.2 (ArcMap) на карте несколько шейпов, например шейп с регионами России, как мне переместиться например в Московскую облать програмно? (Ну чтоб Московская область была на весь экран)

[Максим Дубинин]

Для зуммирования используется первый слой.

Код: Выделить всё

Public Sub ZoomToLayer()
  Dim pMxDoc As IMxDocument
  Dim pMap As IMap
  Dim pActiveView As IActiveView
  
  Set pMxDoc = Application.Document
  Set pMap = pMxDoc.FocusMap
  Set pActiveView = pMap
  
  If pMap.Layer(0) Is Nothing Then Exit Sub
  pActiveView.Extent = pMap.Layer(0).AreaOfInterest
  pActiveView.Refresh
End Sub