Determines the number of subdivisions between grid marks. When this property is equal to 0 (zero), spacing is automatic. Example:

Sub SubCommandButton1_Click()
  Set E3Chart1 = Screen.Item("E3Chart1")
  Old = E3Chart1.HorTickUnit
  For i = 0 To 30 Step 10
    E3Chart1.HorTickUnit = i
    MsgBox "E3Chart1.HorTickUnit = " & CStr(i)
  Next
  MsgBox "Return"
  E3Chart1.HorTickUnit = Old
End Sub