sheet := Excel.ActiveWorkBook.Sheets[aSheetName]; // Выбираем лист
sheet.ChartObjects[aId].Activate;                 // Активируем aChartId диаграмму
chart := Excel.ActiveWorkBook.ActiveChart;        // Получаем диаграмму для работы