экспорт листов из excel в Power Point

@JustAnotherGuy · Регистрация: 08.09.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Появилась сверху амбициозная задача: дан лист excel, на на нем диапазон под лист А4 (А1:N33 например). Хочется, чтобы можно было вставить графики на данный лист и нажатием кнопки экспортировать это в презентацию pp. То есть скинули нужные графики на "простыню" нажали кнопку, преза готова. Возможно ли такое?
Заранее спасибо!

@mihey1993 · 07.12.2016, 14:32

В принципе ничего реально сложного в задаче я не вижу. Давайте начнем с 2 файлов примеров - excel с графиками и определенным диапазоном и образец того, как вы хотите это видеть в итоге в powerpoint.

@JustAnotherGuy · 07.12.2016, 21:23 **[ТС]**

В приложении пример листа (тут какое то жуткое ограничение на файлы) то есть лист с графиком (в виде рисунка) который берет данные из других листов. Так вот график нужно в экспортировать в PP

@mihey1993 · 08.12.2016, 10:46

Пока могу дать только базовую наработку. В Excel необходимо включить Reference в Tools: Microsoft PowerPoint xx.0 Object Library (xx зависит от вашей версии оффиса). Затем применяем используем следующий код:

Visual Basic

Sub prcShapeToSlide()
Dim ppApp As PowerPoint.Application, ppPres As PowerPoint.Presentation, ppSlide As PowerPoint.Slide
Dim sChart As Shape
 
Set sChart = Worksheets("Экспорт в PP").Shapes(1)
 
Set ppApp = New PowerPoint.Application
Set ppPres = ppApp.Presentations.Add
Set ppSlide = ppPres.Slides.Add(1, PpSlideLayout.ppLayoutBlank)
 
sChart.Copy
ppApp.ActiveWindow.View.Paste
End Sub

По сути оставшаяся задача определить размер и положение графика относительно исходной области в Excel и переместить/масштабировать его в PowerPoint. Ну и добавить цикл по For each sShape in Worksheets("...").Shapes для того, чтобы перекидывались все графики.

@JustAnotherGuy · 08.12.2016, 22:18 **[ТС]**

Большое спасибо!

@JustAnotherGuy 0 / 0 / 0 Регистрация: 08.09.2015 Сообщений: 18
		1
	экспорт листов из excel в Power Point 07.12.2016, 10:57. Показов 2805. Ответов 4 Метки нет (Все метки) Доброго времени суток! Появилась сверху амбициозная задача: дан лист excel, на на нем диапазон под лист А4 (А1:N33 например). Хочется, чтобы можно было вставить графики на данный лист и нажатием кнопки экспортировать это в презентацию pp. То есть скинули нужные графики на "простыню" нажали кнопку, преза готова. Возможно ли такое? Заранее спасибо! 0

@mihey1993 323 / 49 / 28 Регистрация: 07.09.2014 Сообщений: 217
	07.12.2016, 14:32	2
	В принципе ничего реально сложного в задаче я не вижу. Давайте начнем с 2 файлов примеров - excel с графиками и определенным диапазоном и образец того, как вы хотите это видеть в итоге в powerpoint. 0

@JustAnotherGuy 0 / 0 / 0 Регистрация: 08.09.2015 Сообщений: 18
	08.12.2016, 22:18 [ТС]	5
	Большое спасибо! 0