0 Replies Latest reply: Jun 1, 2017 9:17 AM by Leonid Zhuravlev RSS

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

    Leonid Zhuravlev

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

       

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