<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Export to PPT in QlikView</title>
    <link>https://community.qlik.com/t5/QlikView/Export-to-PPT/m-p/223688#M76173</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi Gilles,&lt;BR /&gt;You should be able to make use of the below:&lt;BR /&gt;sub powerpoint&lt;BR /&gt; Set PPApp = CreateObject("Powerpoint.Application")&lt;BR /&gt; PPApp.Visible = True&lt;BR /&gt; Set PPPres = PPApp.Presentations.Open &lt;EM&gt;("C:\xxx\xxx.ppt")&lt;BR /&gt;&lt;/EM&gt; PPApp.Visible = True&lt;BR /&gt;&lt;BR /&gt; ActiveDocument.Reload&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;/P&gt;&lt;P&gt;&lt;EM&gt;set s=ActiveDocument.Sheets("Summary")&lt;BR /&gt; ActiveDocument.Sheets("Summary").Activate&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").Restore&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard&lt;BR /&gt; PPApp.Visible = True&lt;BR /&gt; Set PPSlide = PPPres.Slides(11)&lt;BR /&gt; PPSlide.Shapes.Paste&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").Minimize&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;/EM&gt;&lt;/P&gt;&lt;P&gt;set PPApp = nothing&lt;BR /&gt; set PPPRes = nothing&lt;BR /&gt; set PPSlide = nothing&lt;BR /&gt;&lt;BR /&gt; ActiveDocument.SaveAs &lt;EM&gt;"C:\xxx\xxx.qvw"&lt;BR /&gt;&lt;/EM&gt; ActiveDocument.GetApplication.Quit&lt;BR /&gt;end sub&lt;/P&gt;&lt;P&gt;Simply change the italicised parts to suit your Qvw app/PPT &amp;amp; copy paste to re-do for other tabs.&lt;BR /&gt;&lt;BR /&gt;Merry Christmas &amp;amp; hope it helps you on your way!&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Wed, 15 Dec 2010 10:48:34 GMT</pubDate>
    <dc:creator />
    <dc:date>2010-12-15T10:48:34Z</dc:date>
    <item>
      <title>Export to PPT</title>
      <link>https://community.qlik.com/t5/QlikView/Export-to-PPT/m-p/223687#M76172</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;DIV&gt;&lt;P&gt;HI all,&lt;/P&gt;&lt;P&gt;I have to export QV charts in different sheet to PPT ( How to use macro for Export Qlik View Chart to PPT example ). If I use the export button in an other sheet, it doesn't work.&lt;/P&gt;&lt;P&gt;The macro export only one QV chart.&lt;/P&gt;&lt;P&gt;Could you help me to solve this problem.&lt;/P&gt;&lt;P&gt;best regards&lt;/P&gt;&lt;P&gt;Gilles&lt;/P&gt;&lt;/DIV&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 15 Dec 2010 10:17:54 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Export-to-PPT/m-p/223687#M76172</guid>
      <dc:creator />
      <dc:date>2010-12-15T10:17:54Z</dc:date>
    </item>
    <item>
      <title>Export to PPT</title>
      <link>https://community.qlik.com/t5/QlikView/Export-to-PPT/m-p/223688#M76173</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi Gilles,&lt;BR /&gt;You should be able to make use of the below:&lt;BR /&gt;sub powerpoint&lt;BR /&gt; Set PPApp = CreateObject("Powerpoint.Application")&lt;BR /&gt; PPApp.Visible = True&lt;BR /&gt; Set PPPres = PPApp.Presentations.Open &lt;EM&gt;("C:\xxx\xxx.ppt")&lt;BR /&gt;&lt;/EM&gt; PPApp.Visible = True&lt;BR /&gt;&lt;BR /&gt; ActiveDocument.Reload&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;/P&gt;&lt;P&gt;&lt;EM&gt;set s=ActiveDocument.Sheets("Summary")&lt;BR /&gt; ActiveDocument.Sheets("Summary").Activate&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").Restore&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard&lt;BR /&gt; PPApp.Visible = True&lt;BR /&gt; Set PPSlide = PPPres.Slides(11)&lt;BR /&gt; PPSlide.Shapes.Paste&lt;BR /&gt; ActiveDocument.GetSheetObject("CH28").Minimize&lt;BR /&gt; ActiveDocument.GetApplication.WaitForIdle&lt;/EM&gt;&lt;/P&gt;&lt;P&gt;set PPApp = nothing&lt;BR /&gt; set PPPRes = nothing&lt;BR /&gt; set PPSlide = nothing&lt;BR /&gt;&lt;BR /&gt; ActiveDocument.SaveAs &lt;EM&gt;"C:\xxx\xxx.qvw"&lt;BR /&gt;&lt;/EM&gt; ActiveDocument.GetApplication.Quit&lt;BR /&gt;end sub&lt;/P&gt;&lt;P&gt;Simply change the italicised parts to suit your Qvw app/PPT &amp;amp; copy paste to re-do for other tabs.&lt;BR /&gt;&lt;BR /&gt;Merry Christmas &amp;amp; hope it helps you on your way!&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Wed, 15 Dec 2010 10:48:34 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Export-to-PPT/m-p/223688#M76173</guid>
      <dc:creator />
      <dc:date>2010-12-15T10:48:34Z</dc:date>
    </item>
  </channel>
</rss>

