Использование компонентов Microsoft Office в приложениях. Часть 1
Листинг 6
With ChartSpace1 do Begin Clear; Refresh; {!!} DataSource := Sheet.Parent AS MSDATASRC_TLB.DataSource; {!!} Chart := Charts.Add(0); Chart.Type_ := chChartTypeScatterSmoothLineMarkers; Chart.SetData(chDimXValues, 0, ‘A1:A10’); Chart.SetData(chDimYValues, 0, ‘B1:B10’); End;