Перейти к содержимому

Фотография
- - - - -

Экспорт графика из Excel в PowerPoint


  • Авторизуйтесь для ответа в теме
В теме одно сообщение

#1
Ira Marka

Ira Marka

    Проходимец

  • 3 сообщений
  • 0 благодарностей
0
  • Office:2003, 2010

Всем привет!

Ребят, подскажите, как можно экспортировать график или диаграмму из файла Excel? Есть макрос, с которым нужно помочь) Его начало есть, а вот продолжения... :)

 

Так же есть и другие проблемы, которые не могу побороть) Не добавляются слайды и как в принципе то копировать диаграмму?

 

Вот код:

Sub Export()Set Pr = CreateObject("PowerPoint.Application")Set mpr = Pr.Presentations.AddSet ppSlide = mpr.Slides.Add(mpr.Slides.Count, pptLayout)End Sub

Так же прикрепляю файл с самой диаграммой, которую нужно экспортировать в PowerPoint.

Заранее очень благодарна за помощь.

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



#2
Thomas

Thomas

    Excel Pro

  • 60 сообщений
  • 10 благодарностей
12
  • Город:Москва
  • Office:2003, 2010, 2013, Online

Ira Marka, добрый день) Попробуйте такой вариант

Sub ertert()With New PowerPoint.Application    With .Presentations.Add        With .Slides.Add(1, 12)            ActiveSheet.ChartObjects(1).CopyPicture xlPrinter, xlPicture            .Shapes.Paste            .Shapes(1).Select            .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True            .Application.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True        End With    End WithEnd WithEnd Sub

д.б. подключена ссылка (меню Tools-References) MS PowerPoint 14.0 Object Library

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


Господа! Регистрируйтесь и задавайте свои вопросы, связанные с Microsoft Office. Поможем, чем сможем ;)





Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных