| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Экспорт TChart в Word

DelphiLexx ©   (2005-10-12 19:15:00) 

Как экспортировать график TChart'a в Word любой версии

---

КиТаЯц   (2005-10-13 15:29:00) [1]

Под вордом также ;)

Исчо в тему как раз по вставке tChart:
http://delphimaster.ru/cgi-bin/forum.pl?id=1116670692&n=8

Правда тоже для Excel...

---

DelphiLexx   (2005-10-13 15:23:00) [2]

> Ну это работа с вордом. Посмотри в любои факе как работать
> с офисом. В качестве помощь используй запись макросов. Те
> записал что надо переделал на делфи.
> Вот для примера:

Это под Exel, а под word как будет?

---

Kolan   (2005-10-13 15:05:00) [3]

Ну это работа с вордом. Посмотри в любои факе как работать с офисом. В качестве помощь используй запись макросов. Те записал что надо переделал на делфи.
Вот для примера:
Ниже представлен пример создания новой таблице в Excel 2000:

uses
 ComObj, ActiveX;

var
 Row, Col: integer;
 DestRange: OleVariant;
 Excel: Variant;

begin
 Excel := CreateOleObject('Excel.Application.9');
 Excel.Visible := True;
 Excel.WorkBooks.Add; //Создать новую таблицу

 //Можно помещать текст и значения в диапазон ячеек
 //Поместить     слово тест в диапазон ячеек
 Excel.ActiveSheet.Range['A2', 'B3'].Value := 'Тест';
 //Или число
 Excel.ActiveSheet.Range['A4', 'B5'].Value := 42;

 //А вот так задаётся формула
 Excel.ActiveSheet.Range['A10', 'A11'].Formula := '=RAND()';

 //Можно задавать номера ячеек и столбцов
 Excel.ActiveSheet.Cells.Item[1, 1].Value := 'Первая ячейка';

 Row:=1;
 Col:=3;
 Excel.ActiveSheet.Cells.Item[Row, Col].Value := 'Другая ячейка';

 //Можно скопировать данный из одного диапазона ячеек в другой
 DestRange := Excel.Range['D6', 'F10'];
 Excel.Range['A1', 'C5'].Copy(DestRange);

 //Можно задавать параметры шрифта в определённой ячейке
 Excel.Range['A2', 'A2'].Font.Size := 20;
 Excel.Range['A2', 'A2'].Font.FontStyle := 'Bold';
 Excel.Range['A2', 'A2'].Font.Color := clFuchsia;
 Excel.Range['A2', 'A2'].Font.Name := 'Arial';

 //Можно ещё и так изменить цвет диапазона ячеек
 Excel.Range['B2', 'C6'].Interior.Color := RGB(223, 123, 123);

end;

---

DelphiLexx   (2005-10-13 14:58:00) [4]

> FChart.SaveToBitmapFile(FileName);
> А потм загружай в Word.

нет мне нужно, чтобы мой код делал готовый doc-файл.

---

Kolan   (2005-10-13 14:18:00) [5]

FChart.SaveToBitmapFile(FileName);
А потм загружай в Word.

---

DelphiLexx   (2005-10-13 12:56:00) [6]

> Рисунком.

Пример кода можно...

---

YurikGL   (2005-10-12 19:20:00) [7]

Рисунком.

---

Наверх