topic Re: Macro Script to export charts to excel in QlikView

topic Re: Macro Script to export charts to excel in QlikView https://community.qlik.com/t5/QlikView/Macro-Script-to-export-charts-to-excel/m-p/1184711#M882279 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>If you are posting as helpful document, then upload a document in your profile. So that you will get points.</P><P></P><P>If any issues on this macro let us know.</P></BODY></HTML> Wed, 28 Sep 2016 04:00:30 GMT bindu_apte 2016-09-28T04:00:30Z Macro Script to export charts to excel https://community.qlik.com/t5/QlikView/Macro-Script-to-export-charts-to-excel/m-p/1184710#M882278 <HTML><HEAD></HEAD><BODY><P>Hello Qlik Developers</P><P>After many attempts finally i am able to export charts to excel with the below VB script.Hope this script will help someone <IMG src="https://community.qlik.com/legacyfs/online/emoticons/happy.png" /></P><P></P><P>SUB SendExcel</P><P>      set XLApp = CreateObject("Excel.Application") ' Define Object</P><P>      XLApp.Visible = True 'Visible set as true</P><P>      set XLDoc = XLApp.Workbooks.Add 'Open new workbook</P><P>           </P><P>      Set obj = ActiveDocument.GetSheetObject("CH822") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A1").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>       Set obj = ActiveDocument.GetSheetObject("CH824") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A13").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>      Set obj = ActiveDocument.GetSheetObject("CH827") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A26").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>      Set obj = ActiveDocument.GetSheetObject("CH829") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A42").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>      Set obj = ActiveDocument.GetSheetObject("CH831") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A55").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>      Set obj = ActiveDocument.GetSheetObject("CH832") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A70").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P>      Set obj = ActiveDocument.GetSheetObject("CH833") </P><P>      obj.CopyBitmapToClipboard</P><P>      XLDoc.Sheets(1).Range("A83").Select</P><P>      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap</P><P> End Sub</P><P></P><P></P><P>Thanks</P><P>Anil </P></BODY></HTML> Wed, 25 Nov 2020 16:16:04 GMT https://community.qlik.com/t5/QlikView/Macro-Script-to-export-charts-to-excel/m-p/1184710#M882278 dandaanilreddy 2020-11-25T16:16:04Z Re: Macro Script to export charts to excel https://community.qlik.com/t5/QlikView/Macro-Script-to-export-charts-to-excel/m-p/1184711#M882279 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>If you are posting as helpful document, then upload a document in your profile. So that you will get points.</P><P></P><P>If any issues on this macro let us know.</P></BODY></HTML> Wed, 28 Sep 2016 04:00:30 GMT https://community.qlik.com/t5/QlikView/Macro-Script-to-export-charts-to-excel/m-p/1184711#M882279 bindu_apte 2016-09-28T04:00:30Z