Код

Процедура СтроимГрафик_в_Excel()
  Попытка
    XL=CreateObject("Excel.Application");
    If XL.Workbooks.Count>0 Then
      fNeedXlQuit=0;
    Else
      fNeedXlQuit=1;
    EndIf;
    WB=XL.Workbooks.Add();
    chartWS=WB.Worksheets.Add();
    dataWS=WB.Worksheets.Add();
    chartWS.Name="График";
    dataWS.Name="Данные";
    dataWS.Move(WB.Worksheets(1));
    chartWS.Move(WB.Worksheets(1));
    //Пока Запросец.Группировка(1)=1 Цикл
      Тов="Товар";
      chartName="Остатки за период  ";
	  //+Формат(ВыбНачПериода,"ДДДДДММММГГГГ")+
      //" по "+Формат(ВыбКонПериода,"ДДДДДММММГГГГ")+РазделительСтрок+
      //"товар: ("+СокрЛП(Тов.Артикул)+") "+СокрЛП(Тов.Наименование);
      col=1;
      Для Инд1 = 1 по 20 Цикл
	  	dataWS.Cells(2,col).Value=Инд1;
        dataWS.Cells(3,col).Value=2*(Инд1-1);
        dataWS.Cells(4,col).Value=52- 2*Инд1;
        dataWS.Cells(5,col).Value=30;
        col=col+1;
      КонецЦикла;
    //КонецЦикла;
//    dataRange=dataWS.Range(dataWS.Cells(,1),dataWS.Cells(3,col-1));
    dataRange=dataWS.Range(dataWS.Cells(1,1),dataWS.Cells(5,20));
    dataRange.Columns.AutoFit();
    MyChart=chartWS.ChartObjects.Add(0,0,800,300).Chart;
    MyChart.ChartWizard(dataRange,4,1,1,1,0,1,chartName,,"Остаток на конец дня");
    MyChart.SeriesCollection(1).Name=СокрЛП("Тов.Артикул-1");
    MyChart.SeriesCollection(2).Name=СокрЛП("Тов.Артикул-2");
    MyChart.SeriesCollection(3).Name=СокрЛП("Тов.Артикул-3");
    MyChart.SeriesCollection(4).Name=СокрЛП("Тов.Артикул-4");
    MyChart.Axes(1).TickLabels.Orientation=-4171;
    XL.DisplayAlerts=0;
    Counter=WB.Worksheets.Count;
    Пока Counter>2 Цикл
      WB.Worksheets.Item(Counter).Delete();
      Counter=Counter-1;
    КонецЦикла;
    XL.Visible=-1;
    WB.Activate();
    XL.ActiveWindow.Caption="Остатки по дням";
    chartWS.Select();
    XL.DisplayAlerts=-1;
  Исключение
    Сообщить("Ошибка -> "+ОписаниеОшибки(),"!");
    Попытка
      Если fNeedXlQuit=1 Тогда
        XL.DisplayAlerts=0;
        XL.Quit();
      КонецЕсли;
    Исключение
    КонецПопытки;
  КонецПопытки;
  
КонецПроцедуры //СтроимГрафик_в_Excel()