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

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

Экспорт графика из 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.Add
Set ppSlide = mpr.Slides.Add(mpr.Slides.Count, pptLayout)

End Sub

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

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

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



#2
Thomas

Thomas

    Excel Pro

  • 61 сообщений
  • 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 With
End With
End Sub

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

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


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





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

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