Public Sub test() Dim pMXDoc As IMxDocument Set pMXDoc = ThisDocument Dim pLatLonFormat As ILatLonFormat2 Set pLatLonFormat = New LatLonFormat With pLatLonFormat .ShowDirections = True .ShowZeroMinutes = True .ShowZeroSeconds = True End With Dim pReportUnitFormat2 As IReportUnitFormat2 Set pReportUnitFormat2 = pMXDoc pReportUnitFormat2.CoordinateReadoutUnits = esriDecimalDegrees Set pReportUnitFormat2.CoordinateReadoutLatLonFormat = pLatLonFormat End Sub