ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Excel Chart Add Series with VBA (https://www.excelbanter.com/excel-programming/392611-excel-chart-add-series-vba.html)

Juan Schwartz

Excel Chart Add Series with VBA
 
Let's say

chartdepth = "0,1,2,3,4,5,6,7"
chartdays = "0,1,2,3,4,5,6,7,8,9"

When I execute the following code, the values for .XValues fills in
just fine, but the data for .Values just sits at 0.

Dim MyNewSrs As Series
Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries
With MyNewSrs
.Name = well_array(k, 2)
MsgBox (chartdepth)
.Values = Array(chartdepth)
.XValues = Array(chartdays)
End With

Can anyone help me out?


Juan Schwartz

Excel Chart Add Series with VBA
 
On Jul 3, 1:34 pm, Juan Schwartz wrote:
Let's say

chartdepth = "0,1,2,3,4,5,6,7"
chartdays = "0,1,2,3,4,5,6,7,8,9"

When I execute the following code, the values for .XValues fills in
just fine, but the data for .Values just sits at 0.

Dim MyNewSrs As Series
Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries
With MyNewSrs
.Name = well_array(k, 2)
MsgBox (chartdepth)
.Values = Array(chartdepth)
.XValues = Array(chartdays)
End With

Can anyone help me out?


Just to add, the "arrays" have the same number of items in each...


Juan Schwartz

Excel Chart Add Series with VBA
 
On Jul 3, 1:36 pm, Juan Schwartz wrote:
On Jul 3, 1:34 pm, Juan Schwartz wrote:



Let's say


chartdepth = "0,1,2,3,4,5,6,7"
chartdays = "0,1,2,3,4,5,6,7,8,9"


When I execute the following code, the values for .XValues fills in
just fine, but the data for .Values just sits at 0.


Dim MyNewSrs As Series
Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries
With MyNewSrs
.Name = well_array(k, 2)
MsgBox (chartdepth)
.Values = Array(chartdepth)
.XValues = Array(chartdays)
End With


Can anyone help me out?


Just to add, the "arrays" have the same number of items in each...


Figured it out... you just don't put ARRAY() around the vars



chartdepth = "0,1,2,3,4,5,6,7"
chartdays = "2,3,4,5,6,7,8,9"

Dim MyNewSrs As Series
Set MyNewSrs = ActiveChart.SeriesCollection.NewSeries
With MyNewSrs
.Name = well_array(k, 2)
MsgBox (chartdepth)
.Values = Array(chartdepth)
.XValues = Array(chartdays)
End With



All times are GMT +1. The time now is 05:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com