Здравствуйте, Kilgor!
сам код в приложении - тут ссылки на то, откуда почерпнута информация.
1) http://forum.chertenok.ru/viewtopic.php?p=7700&highlight=&sid=bef5bcefc8ae7e1e829b0a08fba8f8ad (ищите зеленый текст
Раз уж вы не указали, какой тип диаграммы вам нужен, то подойдет любой
Если понадобится - сами разберетесь.
2) http://seeyou.narod.ru/Delphi/delphi_excel1.htm http://forum.spravkaweb.ru/index.php?showtopic=281
3) просто см. приложение
Приложение:
varcurrentRangeBorders: variant;...exl := ExcelApp......exl.Range(‘A1:A30; F1:F30‘).select;// 1) что-то типаexl.workbook[1].Charts.Add();// 2)Sheet.Range[‘A1:C4‘].Select;exl.Selection.Borders[хlEdgeLeft].LineStyle := xlContinuous;exl.Selection.Borders[хlEdgeLeft].Weight := xlMedium;exl.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;exl.Selection.Borders[xlEdgeTop].Weight := xlMedium;exl.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;exl.Selection.Borders[xlEdgeBottom].Weight := xlMedium;exl.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;exl.Selection.Borders[xlEdgeRight].Weight := xlMedium;// 3)exl.Range.Selection.NumberFormat = ‘0.000‘; // возможно, надо писать запятую, а не точку