Сделайте шкалы оси X и Y равными на диаграмме Excel

Question

Я бы хотел, чтобы оси X и Y моих диаграмм Excel имели одинаковый масштаб на экране, потому что я строю географические данные. Квадрат размером 1 км на 1 км должен выглядеть как квадрат, а не как прямоугольник, то есть не сгибать карту в том или ином направлении. В Matlab команда, которая будет делать это: axis equal.

Как мне это сделать с помощью VBA?

Я пропускаю еще более простое решение прямо в Excel?

Answer 1

В дополнение к ответу гитариста вам необходимо сделать следующее: Выберите «Область графика» диаграммы, а затем вручную установите высоту и ширину области графика.

Sheets("Chart1").PlotArea.Select
  Selection.Height = 500
  Selection.Width = 500

Просто установив минимальное и максимальное значения оси, вы все равно сможете «сжать» график.

Answer 2

Когда вы выбираете область печати и пишете Selection.Width = something, значение ширины, которое вы устанавливаете, также включает ширину меток / текста оси. Это может быть не то, что вы хотите.

Вместо этого вы можете установить значение ширины / высоты ВНУТРИ, используя

Selection.InsideHeight = 250
Selection.InsideWidth = 250

Answer 3

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

ActiveChart.PlotArea.Select
Selection.Width = Selection.Height * 4