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

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

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

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

В этом макросе, мы используем эту концепцию просмотра диаграммы на активном листе с помощью простого счетчика. Каждый раз, когда новый график попадет в фокус, распечатываем его.

Код макроса

Sub PechatVsehDiagramm()
'Шаг 1: Объявляем переменные
Dim ChartList As Integer
Dim i As Integer
'Шаг 2: Начните цикл по всем графикам
For i = 1 To ActiveSheet.ChartObjects.Count
'Шаг 3: Активируйте каждый график и распечатайте
ActiveSheet.ChartObjects(i).Activate
ActiveChart.PageSetup.Orientation = xlLandscape
ActiveChart.PrintOut Copies:=1
'Шаг 4: Приращение, чтобы перейти к следующему графику
Next i
End Sub

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

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

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

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

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