Mega Code Archive
Defines a Chart object variable and a ChartGroup object variable and then stops
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