Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сохранить группу из диаграмм на листе в графический файл как единую картинку
 
#1
20.03.2015 16:03:59
Всем привет! Помогите, пожалуйста с кодом.
Сохранить группу из диаграмм на листе в графический файл как единую картинку
Знаю как сохранить одну через export, а вот когда они сгруппированы в группу еще с другими объектами не знаю.
Изменено: IFRSoff - 21.03.2015 00:47:20
 
 
 
#2
20.03.2015 16:05:29
Как сохранить картинки из листа Excel в картинки JPG
в комментариях к коду есть указание, что надо указать для сохранения диаграмм
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
20.03.2015 16:14:31
К сожалению диаграммы отдельно и мой код может, вопрос в сохранении группы объектов и диаграмм как одна картинка.
 
 
 
#4
20.03.2015 16:28:36
Нет, в одном не получится. Для этого надо определять область, в которую входят все диаграммы и отрисовывать. Кода там не на один десяток строк даже не на VBA. Проще сделать картинку из диапазона(выделить все ячейки, поверх которых расположены диаграммы и использовать последний код из статьи выше). И уже эту картинку сохранять в отдельный файл.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
20.03.2015 17:02:18
Спасибо! Значит так и сделаю, хотя жалко, что нельзя группу(
 
 
 
#6
20.03.2015 17:09:19
Тут дело в том, что когда Вы группируете диаграммы в группу, то создается отдельный объект фрэйм, внутри которого и объединяются остальные объекты. Следовательно, если попробовать сохранить его - то он и сохранится, без объектов внутри него...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
20.03.2015 17:13:53
Простите, но без файла-примера все это - как разговор на пальцах... ;)
Группу в картинку - для чего? куда потом?
Картинка - скрин, пдф размером в А4, как вариант...
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#8
20.03.2015 17:20:59
Z, предположу, что группа диаграмм в данном случае почти всегда не умещается в экран, что делает бесполезным скрин. А при изменении масштаба теряется качество картинки. PDF тоже не универсальный вариант:
1. Если диаграммы не умещаются на печатный лист - они прямо посередине режутся.
2. Они все же не как картинки сохраняются.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#9
20.03.2015 17:24:18
Цитата
The_Prist написал: ... предположу, что...
И я того же мнения... ;)
Но, согласитесь, что более конкретная постановка целей и способов их достижения не помешала бы.
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#10
20.03.2015 17:36:47
Это да. Зная цель можно предложить совершенно иной путь, решающий проблему :-)  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
20.03.2015 23:40:17
Еще раз приветствую!
Подготовил данные. Есть файл excel, в который тянутся данные из разных источников и на основе которых я строю графики. Далее эти графики должны отображаться в PowerPoint и самое главное - это легко обновляться.
Если бы это была одна диаграмма, то можно было бы легко связать её средствами самого PP. Но, во-первых, у меня комплекс диаграмм, а во-вторых, теряется качество изображения.
Я попробовал через копирование через Снимок экрана (драфт макроса в книге), но качество ужасное.
Сейчас самый оптимальный вариант качества, это скопировать всю группу и вставить в PP с указанием сохранения исходного форматирования.
Изменено: IFRSoff - 20.03.2015 23:43:09
 
 
 
#12
21.03.2015 00:24:00
PP тоже поддерживает VBA. Может стоит попробовать с его помощью передачу данных между приложениями?
 
 
 
#13
21.03.2015 14:41:52
VBA в PP я не владею, точнее понимаю, что смысл один, но ни разу не использовал. Т.е. других вариантов нет, правильно понимаю?
 
 
 
#14
21.03.2015 16:51:20
В данном случае написание кода в PP ничем поможет, т.к. общий смысл реализации ничем не будет отличаться, кроме как тем, что при написании из PP надо будет создавать или подключаться к экземпляру Excel.
У меня иных вариантов реализации нет. Пока нет.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#15
21.03.2015 18:59:44
я может не совсем понял задачу, но если поместить объекты на один лист, то виртуальный принтер? напр буллзип
 
 
 
#16
21.03.2015 21:21:54
А про виртуальный принтер интересная идея. Надо попробовать. Еще интересный момент, что при сохранении в html в папке он создает графические объекты именно группы. Делает же он это встроенным инструментом, только каким и как до него добраться?
 
 
 
#17
22.03.2015 12:59:26
В целом, я пришел пока к такому решению. Сохранять книгу в формате html, где формируются графические объекты группы диаграмм. Т.к. книга у меня зафиксирована, а объекты создаются в постоянной последовательности, то их имена постоянны и я могу сделать ссылки из PP на эти объекты. Таким образом, я могу легко обновляться сохраняя желаемое качество изображений.
 
 
 
#18
23.03.2015 12:33:34
IFRSoff, интересное решение. Спасибо, что поделилилсь
F1 творит чудеса
 
 
 
#19
28.03.2015 21:41:41
Цитата
IFRSoff написал:
объекты создаются в постоянной последовательности, то их имена постоянны и я могу сделать ссылки из PP на эти объекты
? может ещё такой вариант - (тоже сохраняет все диаграммы и графики, без всего лишнего как в случае html) ... если  их размеры в файле адаптируете...
Код
'http://msoffice.nm.ru/faq/macros/chart.htm#faq134
Sub ExportAllChartsSh()
fName$ = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
iPath$ = ThisWorkbook.Path & "\\" & "Charts"
If Dir(iPath, vbDirectory) = "" Then MkDir iPath    
    
    With ThisWorkbook.ActiveSheet    
                  For iCount& = 1 To .ChartObjects.Count
                      iFileName$ = iPath$ & "\\" & .Name & iCount& & ".jpg"
                      .ChartObjects(iCount&).Chart.Export _
                      FileName:=iFileName$, FilterName:="JPG"
                  Next
    End With
End Sub
а если в PP лишь ссылка на них... (постоянная)... то размер, наверно и в PP можно задать?
Изменено: JeyCi - 29.03.2015 07:18:39
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
Страницы: 1
Наверх