HOW TO
This article contains code that shows how to zoom to a bookmark using VBA and ArcObjects.
Note:
Code in ThisDocument code module will only run in the current map document. To store the code in all map documents, open the code in the Normal.mxt ThisDocument code module.
Code:
Sub ZoomToBookmark()
Dim strBookmarkName As String
strBookmarkName = "SouthwestUSA"
Dim pDoc As IMxDocument
Dim pMap As IMap
Set pDoc = ThisDocument
Set pMap = pDoc.FocusMap
Dim pMapBookmarks As IMapBookmarks
Dim pBookmarks As IEnumSpatialBookmark
Dim pBookmark As ISpatialBookmark
Set pMapBookmarks = pMap
Set pBookmarks = pMapBookmarks.Bookmarks
pBookmarks.Reset
Set pBookmark = pBookmarks.Next
Do Until pBookmark Is Nothing
If pBookmark.Name = strBookmarkName Then
pBookmark.ZoomTo pMap
'Refresh the view
pDoc.ActiveView.Refresh
End If
Set pBookmark = pBookmarks.Next
Loop
End Sub
Article ID:000004978
Get help from ArcGIS experts
Download the Esri Support App