VBA to Change Elements of Chart's Data Source

[bisel]

Greetings All,

I generally try recording macros to review the VBA code that I can use when creating new macros. Am stumped on this situation.

I have a chart with several data elements. I want to provide the abillity using a command button so that a user can toggle between the inclusion of two data elements. For example, here is screen shot of the "Select Data" table of the chart in question ...

I want to have a command button that unchecks one of the boxes circled above and checks the other. But, when I record my macros, this is the result ...

Sub toggledata()

    ActiveSheet.ChartObjects("reserve_contrib_chart").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select

End Sub

Appreciate any suggestions.

Steve

 

[Trevor G]

Try something like this (not tested), you need to change object names.

Sub ChangeChartSeries()

    Dim MySeries As Series
    ActiveSheet.ChartObjects("reserve_contrib_chart").Activate

    For Each MySeries In ActiveChart.SeriesCollection
        Select Case MySeries.Name 'Use the Select Case so you can add more options
            Case "NotThisSeries" 'Change the object name
              ActiveChart.SeriesCollection(MySeries.Name).IsFiltered = True
        End Select
    Next MySeries

End Sub