Find the center point of an ArcMap data frame

Summary

The following VBA code calculates the center point of a data frame. The coordinates are in the map units of the data frame.

Procedure

1. Start ArcMap.
2. Open the Visual Basic Editor.
   
   
   In ArcMap, select Tools > Macros > Visual Basic Editor.
   
   
3. In the Project Explorer window, expand Project.mxt and select ArcMap Objects > ThisDocument. Right-click and select View Code.
   
   

   Note:
   Code in ThisDocument code module will only run in the current map document.  To store the code in all your map documents, open the Normal.mxt ThisDocument code module.

   
   
4. Copy the following code into the code module.
   

   Code:
   Sub ReturnCenter()
     Dim pMxDoc As IMxDocument
     Set pMxDoc = Application.Document
     Dim pEnv As IEnvelope
     Set pEnv = pMxDoc.ActivatedView.Extent
     Dim pX As Double
     Dim pY As Double
     pX = (pEnv.XMax + pEnv.XMin) / 2
     pY = (pEnv.YMax + pEnv.YMin) / 2
     MsgBox pX & ", " & pY
   End Sub 

   
   
5. Close the Visual Basic Editor.
6. Run the code.
   
   
   A. Click Tools > Macros > Macros to display the Macros dialog box.
   B. Select a macro and click Run.
   
   
   
   The center point coordinates will be shown in a message box.