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

Невозможно указать размер объекта диаграммы при создании диаграммы. Однако вы можете изменить размер объекта диаграммы после того, как он будет создан, так же, как вы можете изменить размер других графических элементов вашего рабочего листа. Вы можете написать макрос для создания объекта определенного размера, но это лишит большую часть гибкости, присущей инструментам создания диаграмм Excel. Например, когда вы указываете размер создаваемого объекта диаграммы, вы также должны указать другие характеристики, такие как тип диаграммы. Такие характеристики легче выбирать с помощью инструментов на ленте, чем с помощью макроса.

Однако вы можете легко создать макрос, который изменит размер существующего объекта диаграммы. Ключевые команды такого макроса будут изменять свойства ширины и высоты для объекта диаграммы. В VBA эти свойства указываются в точках. Таким образом, если вы хотите изменить размер объекта диаграммы так, чтобы он был 4 дюйма в высоту, вы должны установить для свойства «Высота» значение 288, то есть количество точек в 4 дюймах (4 * 72).

Следующий макрос дает пример одного способа пройти по всем объектам диаграммы на листе и сделать их одинакового размера. Этот конкретный макрос устанавливает ширину каждого объекта диаграммы на 4 дюйма и высоту на 3 дюйма.

Sub ResizeCharts()

For j = 1 To ActiveSheet.Shapes.Count         If ActiveSheet.Shapes(j).Type = msoChart Then             ActiveSheet.Shapes(j).Width = 4  72             ActiveSheet.Shapes(j).Height = 3  72         End If     Next j End Sub

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

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

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

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

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

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Specifying_the_Size_of_Chart_Objects [Определение размера объектов диаграммы].