Получение максимума оси Y диаграммы Excel (когда их два)

Question

Я хотел бы знать, как программно найти и ось Y максимума диаграммы Excel, когда доступно более одного.

Моя конечная цель - найти максимальные значения по оси Y, сравнить их и установить их оба на большее из двух значений.

Answer 1

VBA, аналогичный этому, извлечет значение шкалы

    With ActiveChart.Axes(xlValue, xlPrimary)
        ActiveSheet.Range("A1").Value = .MaximumScale
    End With

Подробнее о том, как связать параметры шкалы оси диаграммы со значениями в ячейках, см.

http://peltiertech.com/Excel/Charts/AxisScaleLinkToSheet.html#ixzz0r8qN248l

Answer 2

Если вы хотите, чтобы на обеих осях автоматически отображались одинаковые минимальные и максимальные значения, вам нужно вывести на график одинаковый разброс данных.

В этом простом примере я использовал следующие данные для создания диаграммы, с «первичным», нанесенным на первичную ось, и «вторичным», ну, вы знаете.

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

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

Этот метод также можно использовать для синхронизации осей нескольких карт. Ниже представлены три маленьких графика с разными шкалами (верхний ряд). В средней строке рассчитанные минимальное и максимальное значения были добавлены к каждому графику, в результате чего их оси автоматически масштабировались на одинаковых минимальных и максимальных значениях. В нижнем ряду фиктивные серии были скрыты, оставив за собой шкалы равномерных осей.