Главная страница
    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.069 c
1-1129094952
SANEK_10289
2005-10-12 09:29
2005.11.06
Помогите пожалуйста... Я из реестра беру имя пользователя...


3-1127889170
Scorpio
2005-09-28 10:32
2005.11.06
Помогите организовать поиск по базе


2-1129539982
Vladimir88
2005-10-17 13:06
2005.11.06
Temp Dir


14-1129711273
vecna
2005-10-19 12:41
2005.11.06
Тааак.... список непонятных моментов в Дельфи начинает расти


8-1118391383
seregka
2005-06-10 12:16
2005.11.06
Объединение нескольких изображений в одно с добавлением текста





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский