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 CommandButton1_Click()
  Set E3Chart1 = Screen.Item("E3Chart1")
  Old = E3Chart1.VerTickUnit
  For i = 0 To 30 Step 10
    E3Chart1.VerTickUnit = i
    MsgBox "E3Chart1.VerTickUnit = " & CStr(i)
  Next
  MsgBox "Voltar"
  E3Chart1.VerTickUnit = Old
End Sub