В теме одно сообщение

[Ira Marka]

Всем привет!

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

 

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

 

Вот код:

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

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

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

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

• СКАЧАТЬ

  Вес: 10,84К

  
  

  Загрузок: 1

  
  

[Thomas]

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

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

• СКАЧАТЬ

  Вес: 18,71К

  
  

  Загрузок: 2