Экспорт графика из excel в powerpoint

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Экспорт графика из excel в powerpoint (Макросы/Sub)

Dimka209

Дата: Среда, 02.04.2014, 20:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток!

Уважаемые профессионалы,

помогите, пожалуйста, с макросом для переноса диаграммы из excel в новую презентацию powerpoint.

Есть 2 проблемы:

1. Почему не добавляются слайды?
2. Как копировать диаграмму?

Вот начало кода...

[vba]

Код

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

End Sub

[/vba]

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

Заранее спасибо!

К сообщению приложен файл: example.xlsx (10.8 Kb)

Сообщение отредактировал Serge_007 - Среда, 02.04.2014, 21:18

Ответить

nilem

Дата: Среда, 02.04.2014, 21:24 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Здрасьте!
попробуйте:
[vba]

Код

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

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

К сообщению приложен файл: example.xlsm (18.7 Kb)

Яндекс.Деньги 4100159601573

Ответить

Dimka209

Дата: Среда, 02.04.2014, 21:38 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem,
Спасибо все работает.

В продолжении темы, хотел уточнить.
Какой код необходим, что бы график был не картинкой, а обыкновенной диаграммой со связью с источником?

Ответить

Юлия

Дата: Вторник, 03.02.2015, 19:06 | Сообщение № 4

Группа: Гости

Спасибо большое! Весь день рылась по форумам, видела чумовые коды, которые у меня не работали и вот, наконец нашла Ваш ответ!

Ответить

anvg

Дата: Среда, 04.02.2015, 03:43 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток

Цитата

а обыкновенной диаграммой со связью с источником

Да точно также, только меняется тип вставки
[vba]

Код

Public Sub InsertChartToPowerPoint(ByVal this As ChartObject)
     Dim pApp As New PowerPoint.Application, pShape As PowerPoint.ShapeRange
     pApp.Visible = msoTrue
     this.Copy
     With pApp.Presentations.Add(msoTrue).Slides.Add(1, 12)
         Set pShape = .Shapes.PasteSpecial(ppPasteShape)
         pShape.Align MsoAlignCmd.msoAlignCenters, msoTrue
         pShape.Align MsoAlignCmd.msoAlignMiddles, msoTrue
     End With
End Sub

Public Sub test()
     InsertChartToPowerPoint ActiveSheet.ChartObjects(1)
End Sub

[/vba]
Успехов

Ответить

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Экспорт графика из excel в powerpoint (Макросы/Sub)

Страница 1 из 1
1