Код

	Ексель = СоздатьОбъект("Excel.Application");
	НашФайл = Ексель.Workbooks.Add();
	НашЛист = НашФайл.Sheets(1);
	Шейпы = НашЛист.Shapes;
...
					Товар = Шейпы.AddShape(1, НХ+База+счХ*Длина, пУ-счУ*Высота, Длина, Высота);
					Товар.TextFrame.Characters(0, 0).Text=тзТовары.Товар;
					Товар.TextFrame.Characters(0, 0).Font.Size=8;

...
			Полка = Шейпы.AddShape(1, НХ+База, пУ, тзТовары.Фейсов*Длина, 2);
			Полка.Line.ForeColor.SchemeColor = Цвет+10;
			Полка.Fill.ForeColor.SchemeColor = Цвет+10;
			Полка.Fill.Patterned(Цвет);