Rearranging Charts Series in VBA

[mikejvir]

Hello All,

I have multiple charts and the series are not in the proper order that I need. Is there an easy way to just change the series order from VBA? As an example I have 11 series.


Existing Order 1 2 3 4 5 6 7 8 9 10 11
New Order 11 10 9 8 1 2 3 4 5 6 7

I need to do this on multplie charts so, I can not change the references to the x and y caterogies.

Thanks,

Mike Virostko

 

[Andrew Poulsom]

Try:

Sub Test()
    Dim i As Long
    Dim NewOrder As Variant
    Dim OldOrder(0 To 3) As String
    NewOrder = Array(11, 10, 9, 8)
    With ActiveChart
        For i = LBound(NewOrder) To UBound(NewOrder)
            OldOrder(i) = .SeriesCollection(i + 1).Name
        Next i
        For i = LBound(NewOrder) To UBound(NewOrder)
            .SeriesCollection(OldOrder(i)).PlotOrder = NewOrder(i)
        Next i
    End With
End Sub

 

[mikejvir]

Hello Andrew,

That is i exaclty what I was looking for. Thanks.

One other question. What parameter tells me have many series there are on a chart?


Mike Virostko

 

[Andrew Poulsom]

That's:

ActiveChart.SeriesCollection.Count

 

[mikejvir]

Thanks again. I appreciate the quick response.

Mike Virostko