График в Excel

    Chart=App.OlePropertyGet("Charts").OleFunction("Add"); // Добавим объект диаграмму
    Chart.OlePropertySet("ChartType",65); // устанавливаем тип
 
    // выберем ячейки для построения диаграммы
    Chart.OleProcedure("SetSourceData",Sh.OlePropertyGet("Range",Sh.OlePropertyGet("Cells",2,2),
    Sh.OlePropertyGet("Cells",p+1,2)),2);
    Chart.OlePropertyGet("SeriesCollection",1).OlePropertySet("XValues",Sh.OlePropertyGet("Range",
    Sh.OlePropertyGet("Cells",2,2),Sh.OlePropertyGet("Cells",p+1,2)));
    Chart.OleProcedure("Location",2,Sh.OlePropertyGet("Name"));
    // установим место вывода
    // для этого получим UsedRange - используемый диапазон ячеек и отступим на 20 пикселей
    Sh.OlePropertyGet("ChartObjects",1).
    OlePropertySet("Top",Sh.OlePropertyGet("UsedRange").OlePropertyGet("Height")+20);
    // и слева от края на 10 пикселей
    Sh.OlePropertyGet("ChartObjects",1).OlePropertySet("left",10);
    // встаем на начало
    Sh.OlePropertyGet("Cells",1,1).OleProcedure("Select");