Excel VisualBasic Script

Sub ExploreChartElements()
    Dim myChart As Chart
    Dim myChartg As ChartGroup
    Dim ser As Series
    Set myChart = ActiveChart
    Set myChartg = myChart.ChartGroups(1)
    Set ser = myChart.SeriesCollection(1)
    Stop
End Sub