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