Public Sub ZoomToAllSelectedFeatures() ' Zoom to selection by calling standard tool Dim pCmdItem As ICommandItem Dim pUID As New UID pUID.Value = "{AB073B49-DE5E-11D1-AA80-00C04FA37860}" Set pCmdItem = ThisDocument.CommandBars.Find(pUID) pCmdItem.Execute End Sub
Dim pMap As IMap Dim pmxDoc As IMxDocument Set pmxDoc = ThisDocument Set pMap = pmxDoc.FocusMap pMap.MapScale = 10000