Такая история. Работаю с Excel как с OLE объектом. Вставляю данные и на их основе строю диаграмму. Всё вроде нормально получается. Но есть непонятка. Хочу установить определенный вид для диаграммы и указать в т.ч. что бы выодилась таблица данных с ключами легенды. Вот код:

s_col_cnt=0
excelobject.application.ActiveWorkbook.ActiveSheet.Shapes.AddChart.Select
excelobject.application.ActiveWorkbook.ActiveChart.ChartType = 66
excelobject.application.ActiveWorkbook.ActiveChart.ApplyLayout (4,1)
excelobject.application.ActiveWorkbook.ActiveChart.Axes(2).MinimumScale = 0
excelobject.application.ActiveWorkbook.ActiveChart.Axes(2).MaximumScale = 1
excelobject.application.ActiveWorkbook.ActiveChart.Axes(2).MajorUnit = Double('0.2')
excelobject.application.ActiveWorkbook.ActiveChart.Axes(2).MinorUnit = Double('0.1')
excelobject.application.ActiveWorkbook.ActiveChart.PlotArea.Select
excelobject.application.ActiveWorkbook.ActiveChart.SetElement (502)
excelobject.application.ActiveChart.Location (2, string(excelobject.application.ActiveWorkbook.worksheets(excel_sheets).Name))

excelobject.application.ActiveWorkbook.ActiveChart.SeriesCollection.NewSeries
s_col_cnt=excelobject.application.ActiveWorkbook.ActiveChart.SeriesCollection.Count
excelobject.application.ActiveWorkbook.ActiveChart.SeriesCollection(s_col_cnt).Values =string(excelobject.application.ActiveWorkbook.worksheets(excel_sheets+1).Name) +'!$C$1:$C$3'
excelobject.application.ActiveWorkbook.ActiveChart.SeriesCollection(s_col_cnt).XValues =string(excelobject.application.ActiveWorkbook.worksheets(excel_sheets+1).Name) +'!$D$1:$E$3'
excelobject.application.ActiveWorkbook.ActiveChart.SeriesCollection(s_col_cnt).Name = string(excelobject.application.ActiveWorkbook.worksheets(excel_sheets+1).Name) +'!$F$1'

Диаграмма выводится всё рно без таблицы данных. Что не так? Чего не хватает? Что лишнее?? Где есть почитайт польный перечэнь настройка внешний вид моя диаграмма?? Хелпа екселевского локально нету. Прошу высказываться :) Хардкод в примере ток для тестирования :)