<?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 Exporting a fast change in QlikView</title>
    <link>https://community.qlik.com/t5/QlikView/Exporting-a-fast-change/m-p/1342883#M413516</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Below is a small sample of working vbscript I use for exporting a straight table and a pie chart of the same data.&amp;nbsp; I would like to update this code such that I can simply export BOTH the straight table AND the pie chart from the same chart (via fast change, which is set up) into excel and completely delete the unnecessary second chart on my sheet.&amp;nbsp; Any ideas?&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;James&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; &lt;SPAN style="color: #339966;"&gt;'paste first straight table at A4, and then paste the fast change pie chart below it&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; ActiveDocument.GetSheetObject("CH20").CopyTableToClipboard true&lt;/P&gt;&lt;P&gt; XLApp.Range("A4").Select&lt;/P&gt;&lt;P&gt; XLDoc.Sheets(1).Paste()&lt;/P&gt;&lt;P&gt; XLApp.Range("A500").End(-4162).Select&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; XLApp.Selection.offset(3,0).Select&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN style="color: #008000;"&gt; 'Sheet needs to be active or else images of charts will NOT export&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; set oDoc = ActiveDocument&lt;/P&gt;&lt;P&gt; set oSht = oDoc.Sheets(1)&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt; oSht.Activate&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN style="color: #008000; font-size: 10pt;"&gt; 'pie chart..currently a SEPARATE chart CH28...but it already exists in first chart CH20 via fast change&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard&lt;/P&gt;&lt;P&gt; XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap&lt;/P&gt;&lt;P&gt; XLApp.Range("A500").End(-4162).Select&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Sat, 29 Apr 2017 19:09:05 GMT</pubDate>
    <dc:creator>jjohnstonti618</dc:creator>
    <dc:date>2017-04-29T19:09:05Z</dc:date>
    <item>
      <title>Exporting a fast change</title>
      <link>https://community.qlik.com/t5/QlikView/Exporting-a-fast-change/m-p/1342883#M413516</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Below is a small sample of working vbscript I use for exporting a straight table and a pie chart of the same data.&amp;nbsp; I would like to update this code such that I can simply export BOTH the straight table AND the pie chart from the same chart (via fast change, which is set up) into excel and completely delete the unnecessary second chart on my sheet.&amp;nbsp; Any ideas?&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;James&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; &lt;SPAN style="color: #339966;"&gt;'paste first straight table at A4, and then paste the fast change pie chart below it&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; ActiveDocument.GetSheetObject("CH20").CopyTableToClipboard true&lt;/P&gt;&lt;P&gt; XLApp.Range("A4").Select&lt;/P&gt;&lt;P&gt; XLDoc.Sheets(1).Paste()&lt;/P&gt;&lt;P&gt; XLApp.Range("A500").End(-4162).Select&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt; XLApp.Selection.offset(3,0).Select&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN style="color: #008000;"&gt; 'Sheet needs to be active or else images of charts will NOT export&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; set oDoc = ActiveDocument&lt;/P&gt;&lt;P&gt; set oSht = oDoc.Sheets(1)&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/P&gt;&lt;P&gt; oSht.Activate&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;SPAN style="color: #008000; font-size: 10pt;"&gt; 'pie chart..currently a SEPARATE chart CH28...but it already exists in first chart CH20 via fast change&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt; ActiveDocument.GetSheetObject("CH28").CopyBitmapToClipboard&lt;/P&gt;&lt;P&gt; XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap&lt;/P&gt;&lt;P&gt; XLApp.Range("A500").End(-4162).Select&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Sat, 29 Apr 2017 19:09:05 GMT</pubDate>
      <guid>https://community.qlik.com/t5/QlikView/Exporting-a-fast-change/m-p/1342883#M413516</guid>
      <dc:creator>jjohnstonti618</dc:creator>
      <dc:date>2017-04-29T19:09:05Z</dc:date>
    </item>
  </channel>
</rss>

