Qlik Community

Россия и СНГ

Announcements
QLIKWORLD LIVE! MAY 16 - 19TH, EARLY BIRD DISCOUNTS! REGISTER TODAY
cancel
Showing results for 
Search instead for 
Did you mean: 
zhuravlevleonid
Contributor II
Contributor II

Варианты экспорта в PowerPoint

Коллеги, добрый день!

Пытаюсь найти оптимальный способ экспорта презентации в 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?

0 Replies