Есть способ сделать это, который не очень хорош, вам придется добавить в фантомную серию с двумя точками данных.
См. Http://www.eng-tips.com/viewthread.cfm?qid=83015.
Вы можете установить шкалы XY пропорционально без макросов, но используя дополнительную серию диаграмм, состоящую из двух точек данных, чтобы построить диагональную линию с равными касательными. Длина тангенса должна быть dx = max(x) -min(x) или dy = max(y) -min(y), в зависимости от того, что больше. На основе длины касательной Excel автоматически установит равные (или почти равные) пределы для осей X и Y.
Шаг 1: Площадь участка должна быть квадратной (вы можете сделать это вручную или в VBA (см. Почтовые расходы IRstuff) ActiveChart.PlotArea.Выберите Выбор.Ширина = 400 Выбор.Высота = 400
Шаг 2: Зарезервируйте диапазон 2х2 для новой серии. Используя функцию IF, введите формулы для xo и yo
если dx> = dy
xo (1) = min (x) yo (1) = (max(y)+min (y) -dx)/2
xo (2) = max(x) yo (2) = (max(y)+min (y)+dx)/2
если dx <dy
xo (1) = (max(x)+min (x) -dy)/2 yo (1) = min (y)
xo (2) = (max(x)+min (x)+dy)/2 yo (2) = max(y)
Шаг 3: Добавьте новую серию в график. Установите ширину линии и маркера, чтобы сделать диаграмму невидимой.
Пользователь, предоставляющий ответ, имеет ссылку на программное обеспечение SectProp .