Automate the graphing process

Philosophaie · Oct 6th 2015

I am trying to automate the graphing process.

I am having problems with .Range(.cells(4,n),.cells(14,n))

Code

n = 5
    For m = 1 To 5
             Sheets("Sheet1").ChartObjects("Chart 1").Chart.SeriesCollection(m).XValues = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(4, n), Sheets("Sheet2").Cells(14, n))
             n = n + 1
             Sheets("Sheet1").ChartObjects("Chart 1").Chart.SeriesCollection(m).Values = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(4, n), Sheets("Sheet2").Cells(14, n))
             Sheets("Sheet1").ChartObjects("Chart 1").Chart.SeriesCollection(m).Name = "Names" & m
             n = n + 1
    Next m

Here is an excerpt of the code:
forum.ozgrid.com/index.php?attachment/67131/

**pike** · Oct 7th 2015

Re: Automate the graphing process

Hello
This is a bit of a hack form Jullita Korol Chart examples so try

Code

Private Sub CommandButton21_Click()
    Dim rngChart, chrObj As ChartObject
    n = 5
    Set chrObj = Sheets("Sheet1").ChartObjects("Chart 1")
    With chrObj
        For m = 1 To 5
            Set rngChart = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(4, n), Sheets("Sheet2").Cells(14, n))
            .Chart.SeriesCollection.NewSeries.XValues = rngChart
            n = n + 1
            Set rngChart = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(4, n), Sheets("Sheet2").Cells(14, n))
            .Chart.SeriesCollection.NewSeries.Values = rngChart
            .Name = "Names" & m
            n = n + 1
        Next m
    End With
End Sub

Display More

Automate the graphing process

Participate now!

Share