Macro Script to export charts to excel

[dandaanilreddy]

Hello Qlik Developers

After many attempts finally i am able to export charts to excel with the below VB script.Hope this script will help someone

SUB SendExcel

      set XLApp = CreateObject("Excel.Application") ' Define Object

      XLApp.Visible = True 'Visible set as true

      set XLDoc = XLApp.Workbooks.Add 'Open new workbook

      Set obj = ActiveDocument.GetSheetObject("CH822")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A1").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

       Set obj = ActiveDocument.GetSheetObject("CH824")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A13").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

      Set obj = ActiveDocument.GetSheetObject("CH827")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A26").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

      Set obj = ActiveDocument.GetSheetObject("CH829")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A42").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

      Set obj = ActiveDocument.GetSheetObject("CH831")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A55").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

      Set obj = ActiveDocument.GetSheetObject("CH832")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A70").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

      Set obj = ActiveDocument.GetSheetObject("CH833")

      obj.CopyBitmapToClipboard

      XLDoc.Sheets(1).Range("A83").Select

      XLDoc.Sheets(1).PasteSpecial DataType=wdPasteBitmap

End Sub

Thanks

Anil

[bindu_apte]

Hi,

If you are posting as helpful document, then upload a document in your profile. So that you will get points.

If any issues on this macro let us know.