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

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

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

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

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

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

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

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

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

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

Этот совет (2208) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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