Уважаемые формучане, по работе часто требуется переносить данные из готового шаблона Excel в презентации. С макросами (для своих нужно) сносно работаю, но вот задействовать два различных приложения еще не приходилось.
Проблема в следующем. Пытаюсь средствами vba скопировать график на лист презентации. (Презентация создается с нуля). Скопировать получилось, но хотелось бы растянуть ее на большую площадь. Можно ли где-то изменить свойства?
P.S.
Для работы макроса, нужно чтобы были подключены библиотеки Microsoft PowerPoint 11.0 Object Library. И Microsoft Scripting Runtime
Проблема в следующем. Пытаюсь средствами vba скопировать график на лист презентации. (Презентация создается с нуля). Скопировать получилось, но хотелось бы растянуть ее на большую площадь. Можно ли где-то изменить свойства?
P.S.
Для работы макроса, нужно чтобы были подключены библиотеки Microsoft PowerPoint 11.0 Object Library. И Microsoft Scripting Runtime
| Код |
|---|
Sub test()
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide1 As PowerPoint.Slide, ppSlide2 As PowerPoint.Slide
' запуск PowerPoint.
Set ppApp = CreateObject("Powerpoint.Application")
' сделать видимым.
ppApp.Visible = True
' создать новую презентацию.
Set ppPres = ppApp.Presentations.Add(msoTrue)
' создать пустой слайд.
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutBlank)
'Копируем диаграмму в PowerPoint
ThisWorkbook.Worksheets(1).ChartObjects("Диаграмма 1").Copy
Set chart1 = ppSlide1.Shapes.PasteSpecial(ppPastePNG)
End Sub
|
Изменено: - 14.08.2015 17:23:26
Когда испробованы все варианты, я начинаю плясать с бубном. Как правило — помогает.
