Bar chart export to excel

[vardhancse]

Hi,

When i export a bar chart to excel its showing in table format, can please me know is there a option to export into bar chart other than reports/nprinting solutions.

[#2]

HI Kandragula..

There is no direct QlikView option which can be enabled to Export Graph into Excel. Alternatively you can achieve this by writing a macro . The macro is as below :-

Sub ExportGraph()
Dim vSheet
Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = TRUE
Set XLDoc = XLApp.Workbooks.Add
vSheet = ""
vSheet = "Sheet1"
ActiveDocument.GetSheetObject("CH26").CopyBitmapToClipboard 'Copy the charts
XLDoc.Sheets(vSheet).Range("A" & 1).Select
XLDoc.Sheets(vSheet).Paste

Set XLDoc = Nothing
Set XLApp = Nothing

End Sub

Hope this will work and let me know..

Regds
Prabakar

[vardhancse]

Hi prabhakar,

Trying to create one action based on marco,

Throwing error 'expected end'

[#4]

Hi Sasi..

Yes your macro will export the bar chart but the macros are not running in the Qlikview 9.00 version in the Access point.

Since i am trying to do the same thing. Since macros are not working. Need to explore it more and let you know.

Regds

Prabakar

[vardhancse]

In order to get image we can get directly in

browser->In browser->Right click(on the required chart)->print->

Graph image will be opened in separate browser window->Image->right click->copy and paste in excel.

we can get as an image in excel

[vardhancse]

And more over macros will not work in ajax mode

[#7]

Hi ..

So you got the solution for your queries right ?

Regds

Prabakar         

[vardhancse]

No,

I m looking for direct export of graph to excel not in image format.

[#9]

Hi Sasi..

Can you try this once..?

Sub GetChartValues()

  Dim NumberOfRows As Integer

  Dim X As Object

  Counter = 2

  ' Calculate the number of rows of data.

  NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

  Worksheets("ChartData").Cells(1, 1) = "X Values"

  ' Write x-axis values to worksheet.

  With Worksheets("ChartData")

  .Range(.Cells(2, 1), _

  .Cells(NumberOfRows + 1, 1)) = _

  Application.Transpose(ActiveChart.SeriesCollection(1).XValues)

  End With

  ' Loop through all series in the chart and write their values to

  ' the worksheet.

  For Each X In ActiveChart.SeriesCollection

  Worksheets("ChartData").Cells(1, Counter) = X.Name

  With Worksheets("ChartData")

  .Range(.Cells(2, Counter), _

  .Cells(NumberOfRows + 1, Counter)) = _

  Application.Transpose(X.Values)

  End With

  Counter = Counter + 1

  Next

End Sub

Regds

Prabakar

[vardhancse]

can please let me know what is the output for the above macro