Сводная диаграмма VBA Access устанавливает минимальную/максимальную шкалу по оси Y.

Столкнулся с еще одной проблемой при формировании сводной диаграммы через VBA в Access 2010. Я получаю сообщение об ошибке «Ошибка времени выполнения« 438 »: объект не поддерживает это свойство или метод».

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

Private Sub Form_Load()

'Call LineMarkerFormat

RONMax = DMax("[Total A/C]", "tblRONChartComparison")
RONMin = DMin("[Total A/C]", "tblRONChartComparison")

With Me.ChartSpace.Charts(0).Axes(1).Scaling
    .MinimumScale = RONMin
    .MaximumScale = RONMax

End With

End Sub

vba ms-access-2010 pivot-chart
person Michael Byars    schedule 02.05.2017    source источник

Ответы (1)


arrow_upward
0
arrow_downward

и на следующем сайте, который я проверил, было очень простое решение. вам больше не нужно масштабирование в конце .minimum/.maximum. Вот мой рабочий код.

Private Sub Form_Load()

'Call LineMarkerFormat

RONMax = DMax("[Total A/C]", "tblRONChartComparison")
RONMin = DMin("[Total A/C]", "tblRONChartComparison")


With Me.ChartSpace.Charts(0).Axes(1).Scaling
    .Minimum = RONMin
    .Maximum = RONMax

End With

End Sub
person Michael Byars    schedule 02.05.2017