Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Печать диаграмм с разных листов одновременно - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать диаграмм с разных листов одновременно (Графики и диаграммы/Charts)
Печать диаграмм с разных листов одновременно
drugojandrew Дата: Вторник, 01.09.2015, 11:43 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
В книге на 15 листах по одной диаграмме, как напечатать их быстро, за один раз?
 
Ответить
СообщениеДобрый день.
В книге на 15 листах по одной диаграмме, как напечатать их быстро, за один раз?
Автор - drugojandrew
Дата добавления - 01.09.2015 в 11:43
drugojandrew Дата: Вторник, 01.09.2015, 12:18 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата _Boroda_, 01.09.2015 в 11:51, в сообщении № 2
А если выделить все листы (выделить первый и, держа нажатым Шифт, выделить последний) и отправить на печать?

Не получается так - предлагает напечатать все данные с листа (т.е. включая данные, по которым построена диаграмма). Диаграммы перед этим выделял. Попробовал и без выделения - то же самое.
 
Ответить
Сообщение
Цитата _Boroda_, 01.09.2015 в 11:51, в сообщении № 2
А если выделить все листы (выделить первый и, держа нажатым Шифт, выделить последний) и отправить на печать?

Не получается так - предлагает напечатать все данные с листа (т.е. включая данные, по которым построена диаграмма). Диаграммы перед этим выделял. Попробовал и без выделения - то же самое.
Автор - drugojandrew
Дата добавления - 01.09.2015 в 12:18
Karataev Дата: Вторник, 01.09.2015, 12:36 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Реализация с помощью макроса.
Макрос просматривает все листы и печатает из листа первую диаграмму.
[vba]
Код
Sub PechatCharts()
      Dim sh As Worksheet, chrt As Chart
      For Each sh In Worksheets
          Set chrt = sh.ChartObjects(1).Chart
          chrt.PrintOut
      Next
End Sub
[/vba]


Сообщение отредактировал Karataev - Вторник, 01.09.2015, 12:37
 
Ответить
СообщениеРеализация с помощью макроса.
Макрос просматривает все листы и печатает из листа первую диаграмму.
[vba]
Код
Sub PechatCharts()
      Dim sh As Worksheet, chrt As Chart
      For Each sh In Worksheets
          Set chrt = sh.ChartObjects(1).Chart
          chrt.PrintOut
      Next
End Sub
[/vba]
Автор - Karataev
Дата добавления - 01.09.2015 в 12:36
drugojandrew Дата: Вторник, 01.09.2015, 14:54 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Karataev, спасибо, работает. Только останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed".
Это можно как-то исправить?
 
Ответить
СообщениеKarataev, спасибо, работает. Только останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed".
Это можно как-то исправить?
Автор - drugojandrew
Дата добавления - 01.09.2015 в 14:54
drugojandrew Дата: Вторник, 01.09.2015, 15:24 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата drugojandrew, 01.09.2015 в 14:54, в сообщении № 5
останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed".
Это можно как-то исправить?

Всем спасибо, эту проблему решил прописав "On Error Resume Next".
 
Ответить
Сообщение
Цитата drugojandrew, 01.09.2015 в 14:54, в сообщении № 5
останавливается, когда доходит до листа без диаграммы и выдает ошибку: "Method 'ChartObjects' of object' _Worksheet' failed".
Это можно как-то исправить?

Всем спасибо, эту проблему решил прописав "On Error Resume Next".
Автор - drugojandrew
Дата добавления - 01.09.2015 в 15:24
Karataev Дата: Вторник, 01.09.2015, 15:41 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Лучше так:
[vba]
Код
Sub PechatCharts()
      Dim sh As Worksheet, chrt As Chart
      For Each sh In Worksheets
          If sh.ChartObjects.Count <> 0 Then
              Set chrt = sh.ChartObjects(1).Chart
              chrt.PrintOut
          End If
      Next
End Sub
[/vba]
Перехватчик "On Error Resume Next" нужно использовать, если нет других вариантов.


Сообщение отредактировал Karataev - Вторник, 01.09.2015, 15:41
 
Ответить
СообщениеЛучше так:
[vba]
Код
Sub PechatCharts()
      Dim sh As Worksheet, chrt As Chart
      For Each sh In Worksheets
          If sh.ChartObjects.Count <> 0 Then
              Set chrt = sh.ChartObjects(1).Chart
              chrt.PrintOut
          End If
      Next
End Sub
[/vba]
Перехватчик "On Error Resume Next" нужно использовать, если нет других вариантов.
Автор - Karataev
Дата добавления - 01.09.2015 в 15:41
drugojandrew Дата: Вторник, 01.09.2015, 16:21 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 141
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Karataev, спасибо, исправил
 
Ответить
СообщениеKarataev, спасибо, исправил
Автор - drugojandrew
Дата добавления - 01.09.2015 в 16:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Печать диаграмм с разных листов одновременно (Графики и диаграммы/Charts)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!