Консультация № 43732
21.05.2006, 11:36
0.00 руб.
0 1 1
Здравствуйте, эксперты.
Вопросы по взаимодействию Delphi7 и ExcelXP.
1) Требуется через Delphi построить график в Excel‘е, на онове данных из таблицы. Скажем значения по оси X берутся из столбца A1:A30, а соответствующие значения Y берутся из столбца C1:C30.
2) Каким образом через Delphi можно окружить границей диапазон ячеек.
3) Как через Delphi можно задать формат ячейки (числовой, 3 знака после запятой).

Обсуждение

Неизвестный
21.05.2006, 19:47
общий
это ответ
Здравствуйте, 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‘; // возможно, надо писать запятую, а не точку
Форма ответа