如何读取Access图表的MajorUnit参数

Question

我有一个Access 2010应用程序，可以在VBA中生成条形图。垂直网格线之间的间距由Axis.MajorUnit参数控制。通常我很乐意让访问自动设置此参数。例外情况是Access将其设置为小于1。在这种情况下，我想覆盖它并强制它为一个。

这是我尝试过的代码：

If Me.brandHistogram.Axes(1).MajorUnit < 1 Then
    Me.brandHistogram.Axes(1).MajorUnit = 1
End If

问题是MajorUnit属性似乎是只写的。因此代码在第一行失败。

有什么想法吗？

（Access 2010，Windows 7）