Excel VBA и графики.Проблема с обозначением оси Y - PullRequest
Новая
       25

Excel VBA и графики.Проблема с обозначением оси Y

0 голосов
/ 23 марта 2019

Просто начинаю с Excel и диаграмм ....

Текущий код: 

With excel_Chart.Chart
    .ChartType = xlColumnClustered
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Values = _
            Array(numOfSmallHits, numOfAllHits, numOfTallHits)  'array_value
End With

Генерирует эти две диаграммы. Когда оба значения равны 1, ось Y показывает 0, 0,5, 1, 1,5

enter image description here

enter image description here

Когда одно значение равно 1, а другое - 2, ось Y показывает 0, 1, 2, 3

Я не хочу использовать жестко закодированные метки, поскольку это динамический график, но я хочу использовать только целые числа. Я попытался сделать это, добавив следующую строку кода в приведенный выше фрагмент. 

  .Axes(xlValue).TickLabels.NumberFormat = "0"

Сначала кажется, что ничего не меняется при значениях 1 и 2.

enter image description here

Но когда оба значения равны 1, я получаю дублирующее значение по оси Y (0, 1 , 1,2).

enter image description here

Для динамической диаграммы, какое свойство необходимо установить, чтобы целые числа отображались с шагом 1. Например, 0,1,2,3,4,5 ....

1 Ответ

2 голосов
/ 23 марта 2019

Я думаю, вы ищете Axis.MajorUnit свойство.

Попробуйте: 

.Axes(xlValue).MajorUnit = 1
...