topic Zoom To Layer in ArcObjects SDK Questions

Zoom To Layer

CK — Thu, 22 Jul 2010 15:56:15 GMT

Hi!
Does anyone know the code (VBA) of the GIS function "Zoom To Layer"?

Re: Zoom To Layer

AndrewMay — Tue, 27 Jul 2010 13:01:29 GMT

This example should do what you want

http://edndoc.esri.com/arcobjects/8.3/Samples/ArcMap/ZoomToLayer.htm

Re: Zoom To Layer

AnjalDave — Fri, 30 Jul 2010 04:20:57 GMT

This code will zoom display to extent of first layer in TOC(Table Of Content).

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