Печать всех графиков с листа

= Мир MS Excel/Печать всех графиков с листа - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Дата: Пятница, 19.02.2016, 12:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 143

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
На листе имеется порядка 20 графиков и печатать по одному их слишком долго. Можете подсказать макрос для печати одним разом?

Дата: Пятница, 19.02.2016, 12:55 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

drugojandrew, так подойдет?
[vba]

Код

Sub chartPrint()
    For Each sh In ActiveSheet.ChartObjects
        sh.Activate
        ActiveSheet.PrintOut
    Next sh
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Дата: Пятница, 19.02.2016, 13:13 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 143

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Manyasha, спасибо, то что надо