You’re offline. This is a read only version of the page.
30
Hi,
I'm using this code in Exel 2007
Share
ReportSub 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
and i'm receiving error in this line
NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
plz help
thanks
*This post is locked for comments
I have the same question (0)
Have you tried NumberOfRows = UBound(ActiveChart.SeriesCollection(0).Values)
changed you 1 to a 0 . The collection might need to start at 0 instead of 1.
I also assume you have a chart selected prior to running this. If not you will need to make sure the chart is selected prior to trying to use ActiveChart or you have a null reference.
Also, this really isnt the place for Excel VBA code. You might want to post somewhere like www.excelforum.com/excel-programming-vba-macros
Thanks
All responses (
Answers (
