У Меган есть ежемесячный отчет, который она создает в Excel. Она автоматизировала большую часть отчетов, за исключением одной досадной проблемы, которую ей приходится решать вручную. Отчет включает четыре круговые диаграммы, которые используются для иллюстрации некоторых значений из отчета. Каждая круговая диаграмма немного отличается по размеру, и ручная задача состоит в том, что Меган нужно сделать их всех одинакового размера. Она хочет, чтобы каждая из них была размером 5 квадратных сантиметров, и хотела бы избавиться от рутинного ручного форматирования их каждый месяц.

Причина того, что каждая из круговых диаграмм немного отличается по размеру, заключается в том, что при создании диаграммы с настройками по умолчанию Excel решает, что он может настроить размер диаграммы по своему усмотрению. Этот размер может зависеть от нескольких факторов, таких как доступное пространство, размеры меток, количество точек данных и т. Д. Один из способов повысить вероятность того, что все диаграммы будут одинакового размера, — создать свою первую диаграмму, а затем использовать Ctrl + C и Ctrl + V, чтобы скопировать диаграмму три раза. Все должны быть идентичными, и тогда вы можете настроить диапазоны данных, отображаемые в диаграммах, чтобы они отображали желаемые диапазоны.

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

Sub AdjChartSizes()

Dim cht As ChartObject     For Each cht In ActiveSheet.ChartObjects         cht.Chart.ChartArea.AutoScaleFont = False         cht.Height = Application.CentimetersToPoints(5)

cht.Width = Application.CentimetersToPoints(5)

Next cht End Sub

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (12235) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для более старого интерфейса меню Excel здесь: link: / excel-Specifying_Chart_Sizes [Определение размеров диаграммы].