Discussion Board for collaboration on QlikView Layout & Visualizations.
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.
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 vSheetSet XLApp = CreateObject("Excel.Application")XLApp.Visible = TRUESet XLDoc = XLApp.Workbooks.AddvSheet = ""vSheet = "Sheet1"ActiveDocument.GetSheetObject("CH26").CopyBitmapToClipboard 'Copy the chartsXLDoc.Sheets(vSheet).Range("A" & 1).SelectXLDoc.Sheets(vSheet).Paste
Set XLDoc = NothingSet XLApp = Nothing
Hope this will work and let me know..
Trying to create one action based on marco,
Throwing error 'expected end'
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.
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
And more over macros will not work in ajax mode
So you got the solution for your queries right ?
I m looking for direct export of graph to excel not in image format.
Can you try this once..?
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.
.Range(.Cells(2, 1), _
.Cells(NumberOfRows + 1, 1)) = _
' 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
.Range(.Cells(2, Counter), _
.Cells(NumberOfRows + 1, Counter)) = _
Counter = Counter + 1
can please let me know what is the output for the above macro