[VBA] скопировать графики из Excel на слайды PowerPoint

Пользователь

Сообщений: 352 Регистрация: 24.12.2012

09.05.2013 08:42:39

Добрый день!
Подскажите пожалуйста, существует ли возможность автоматизировать на VBA вставку графиков на слайды PP.
и если да, подскажите пожалуйста макрос для перемещения двух графиков на отдельные слайды (в приложении)

с уважением

Прикрепленные файлы

Новая папка (3).rar (29.38 КБ)

caustic

pharmaprofi Гость	#2 09.05.2013 22:25:05 Реализовал в свое время эту функцию в надстройке. Если ее поковырять можно полностью автоматизировать процесс. Надстройка тут:http://pharmaprofi.ru/post/27 Изменено: pharmaprofi - 09.05.2013 22:25:35

caustic

Пользователь

Сообщений: 352 Регистрация: 24.12.2012

10.05.2013 01:31:38

pharmaprofi, спасибо вам. все работает.
только один вопрос, как подкорректировать код так, чтобы график копировался не на активный лист презентации, а на конкретный?

Код

1	`Set` `objPasted = PPSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile)`

Изменено: caustic - 10.05.2013 01:31:53

caustic

pharmaprofi Гость	#4 10.05.2013 10:29:14 Выбирается активный слайд: Set PPSlide = PPPres.Slides _ (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) Задать слайд: Set PPSlide = PPPres.Slides (НОМЕР СЛАЙДА)

caustic

Пользователь

Сообщений: 352 Регистрация: 24.12.2012

10.05.2013 11:29:05

pharmaprofi, спасибо! очень хорошая надстройка
Вчера полночи посидел над ней. Еще такой вопрос.
У меня есть сгруппированные диаграммы.

.Paste и .PasteSpecial - вставляют сгруппированные диаграммы в каком то искаженном виде (яркость выше обычного, размер шрифта и тп)

.PasteSpecial(ppPasteEnhancedMetafile) - вставляет их как рисунок

а как сделать так, чтобы сгруппированные диаграммы вставлялись, сохранив при этом полностью исходное форматирование?

Код

Selection.Copy
Set objPasted = PPSlide.Shapes.Paste
 
Selection.Copy
Set objPasted = PPSlide.Shapes.PasteSpecial
 
Selection.Copy
Set objPasted = PPSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile)

caustic

pharmaprofi Гость	#6 10.05.2013 16:53:07 сейчас не подскажу. я когда ее только с 2003 офисом тестировал. возможно, что ошибаюсь (сейчас посмотреть негде) но есть пастеспешал png

Читают тему