Печать всех внедренных диаграмм программным способом на листе Excel

В Microsoft Excel можно создать макрос Microsoft Visual Basic для приложений, который выводит все внедренные диаграммы на листе Excel. Каждая диаграмма печатается на отдельной странице.

Дополнительная информация

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена. Чтобы создать пример макроса, который может печатать все внедренные диаграммы на листе и выводить каждую диаграмму на отдельную страницу, выполните следующие действия.

1. Запустите Excel, а затем откройте книгу, содержащую лист с внедренными диаграммами.

2. Нажмите клавиши ALT+F11, чтобы запустить Редактор Visual Basic.

3. В меню Вставка выберите Модуль.

4. На листе модуля введите или вставьте следующий код:

   Sub PrintEmbeddedCharts()
        Dim ChartList As Integer
        Dim X As Integer
        ' Variable chartlist stores a count of all embedded charts.
        ChartList = ActiveSheet.ChartObjects.Count
        ' Increments the counter variable 'X' in a loop.
        For X = 1 To ChartList
            ' Selects the chart object.
            ActiveSheet.ChartObjects(X).Select
            ' Makes chart active.
            ActiveSheet.ChartObjects(X).Activate
            ' Prints one copy of active chart.
            ActiveChart.PrintOut Copies:=1
        Next
   End Sub
   

5. В меню Файл выберите команду Закрыть и вернуться в Microsoft Excel.

6. Выберите лист, содержащий внедренные диаграммы.

7. В меню Сервис наведите указатель мыши на пункт Макрос и выберите пункт Макросы.

8. В списке Имя макроса щелкните PrintEmbeddedCharts и нажмите кнопку Выполнить.