Determina o número de subdivisões entre as marcas da grade. Quando esta propriedade estiver com o valor 0 (zero), o espaçamento é automático. Exemplo:

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 "Voltar"
  E3Chart1.HorTickUnit = Old
End Sub