Коллеги, добрый день!
Пытаюсь найти оптимальный способ экспорта презентации в PowerPoint.
1) На форуме самой популярной является эта публикация:
https://community.qlik.com/docs/DOC-3774
Однако он предлагает изменять загрузочный скрипт. Этот способ не выглядит как оптимальный.
2) Есть хороший метод делать это с помощью скриншотов. Однако для этого приходится изменять размер окна QlikView. Для этого можно использовать, например, этот код:
sub ExportToPPT
ActiveDocument.ActiveSheet.FitZoomToWindow
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Visible = True
Set PPres = PPApp.Presentations.Add
PPSlideNo = 1
For i = 0 to ActiveDocument.NoOfSheets - 1
Set PPSlide = PPres.Slides.Add(PPSlideNo,1)
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.CopyBitmapToClipboard
PPSlide.Shapes.Paste
with PPSlide.Shapes(PPSlide.Shapes.Count)
.left = 0
.top = 20
.width =720
end with
activedocument.nexttab
PPSlideNo = PPSlideNo + 1
NEXT
PPres.SaveAs "C:\Presentation1.ppt"
PPres.Close
PPApp.Quit
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End Sub
Источник: https://community.qlik.com/message/631863#631863
В связи с этим несколько вопросов:
1) Есть ли более адекватный вариант макроса?
2) Есть ли команда аналогичная FitZoomToWindow, но которая бы автоматически устанавливала размер окна 1680х1200?