Как изменить размер диаграмм на рабочем листе

Что делает макрос: При построении информационной панели, вы часто хотите достичь определенного уровня симметрии и равновесия. Иногда это требует некоторого уровня стандартизации размера диаграммы. Макрос в этом разделе дает вам простой способ изменить размер диаграмм, установив стандартную высоту и ширину для всех ваших графиков сразу.

Как макрос работает

Все графики принадлежат коллекции ChartObjects. Каждая диаграмма в ChartObjects имеет индексный номер, который можно использовать, чтобы привести его в центр внимания.
Например, диаграмма объектов (1) указывает на первую диаграмму в листе.
В этом макросе, мы используем эту концепцию диаграмм на активном листе с помощью простого счетчика. Каждый раз, когда новый график попадет в фокус, мы меняем его высоту и ширину до размера, который мы определили.

Код макроса

Sub IzmenitRazmerDiagramm()
'Шаг 1: Объявляем переменные
Dim i As Integer
'Шаг 2: Начните цикл по всем графикам
For i = 1 To ActiveSheet.ChartObjects.Count
'Шаг 3: Активируйте каждый график и размер
With ActiveSheet.ChartObjects(i)
.Width = 300
.Height = 200
End With
'Шаг 4: Приращение, чтобы перейти к следующему графику
Next i
End Sub

Как этот код работает

1. Шаг 1 объявляет целочисленный объект, который используется в качестве механизма по циклу. Назовем переменную I.
2. Шаг 2 начинается выполнение цикла путем установки i от 1 до
   максимального количества графиков в коллекции ChartObjects на активном листе. При запуске кода, I инициирует с номером 1, цикл продолжается, пока не достигнет числа, равного максимальному количеству графиков на листе.
3. Шаг 3 Устанавливаем ширину и высоту диаграммы, числа мы указываем здесь в коде. Вы можете изменить эти цифры, чтобы удовлетворить ваши потребности.
4. На шаге 4, макрос запускает цикл, чтобы получить следующую диаграмму. После того, как все графики были оценены, макрос заканчивается.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код.