Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Вниз

Экспорт TChart в Word   Найти похожие ветки 

 
DelphiLexx ©   (2005-10-12 19:15) [0]

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


 
YurikGL ©   (2005-10-12 19:20) [1]

Рисунком.


 
DelphiLexx ©   (2005-10-13 12:56) [2]


> Рисунком.

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


 
Kolan ©   (2005-10-13 14:18) [3]

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


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


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

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


 
Kolan ©   (2005-10-13 15:05) [5]

Ну это работа с вордом. Посмотри в любои факе как работать с офисом. В качестве помощь используй запись макросов. Те записал что надо переделал на делфи.
Вот для примера:
Ниже представлен пример создания новой таблице в 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 15:23) [6]


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

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


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

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

Исчо в тему как раз по вставке tChart:
http://delphimaster.net/view/10-1116670692/

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.04 c
2-1128595845
norwikh
2005-10-06 14:50
2005.11.06
В Win98 проекты ведут себя весьма странно


6-1122275828
Marsel83
2005-07-25 11:17
2005.11.06
CGI смена кодировок


1-1129103674
Mishenka
2005-10-12 11:54
2005.11.06
Как в ListView сделать, чтобы CheckBox был не у всех Item ов?


9-1118065319
Gashish
2005-06-06 17:41
2005.11.06
Перенос модели в из 3d max в Delphi


6-1121168732
kot andrei
2005-07-12 15:45
2005.11.06
mac адреса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский