Всавка из TImage в Excel или Word - Компоненты Delphi

nevo · 19.04.2008, 11:12

Нужно чтоб рисунок из TImage вставлялся в Excel или Word. Помогите плз, я чет недоганяю.

_Dmitry · 19.04.2008, 12:52

Вставляйте через буфер обмена.

Код:

ClipBoard.Assign(Image1.Picture);
WordApplication1.Selection.Paste;

и не забудьте uses ClipBrd;

nevo · 19.04.2008, 13:51

в Word получается, а с Excel ступор

_Dmitry · 19.04.2008, 14:39

Код:

uses ComObj, OleServer, ClipBrd;
..........
var
  E: OleVariant;
..........
  E:=CreateOleObject('Excel.Application');
  E.WorkBooks.Add;
  E.Visible:=true;
  ClipBoard.Assign(Image1.Picture);
  E.ActiveSheet.Paste;

yaver · 01.10.2008, 12:33

как вставить рисунок в документ Word с заданием формата положения (в тексте; относительно верхнего левого угла листа 0,0)?

mihali4 · 01.10.2008, 13:50

Вот вам немного инструкций:
Вложение 5853

yaver · 09.10.2008, 12:01

немного покапавшись получилось с таким кодом:

Word_1.ActiveDocument.Shapes.AddPic ture(filename_k, False, True);
Pic_1:=Word_1.ActiveDocument.Shapes .Item(1);

Pic_1.PictureFormat.Brightness:=0.4 5;
Pic_1.PictureFormat.Contrast:=0.65;

Pic_1.RelativeHorizontalPosition:=w dRelativeHorizontalPositionPage;
Pic_1.RelativeVerticalPosition:=wdR elativeVerticalPositionPage;
Pic_1.Left:=0;
Pic_1.Top:=0;
Pic_1.Height:=595.3;
Pic_1.Width:=841.9;

Pic_1.WrapFormat.Type:=3;
Pic_1.ZOrder(5);

19.04.2008, 11:12	#1
nevo Регистрация: 04.04.2008 Сообщений: 8	Всавка из TImage в Excel или Word Нужно чтоб рисунок из TImage вставлялся в Excel или Word. Помогите плз, я чет недоганяю.

19.04.2008, 12:52	#2
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	Вставляйте через буфер обмена. Код: `ClipBoard.Assign(Image1.Picture); WordApplication1.Selection.Paste;` и не забудьте uses ClipBrd;

19.04.2008, 13:51	#3
nevo Регистрация: 04.04.2008 Сообщений: 8	в Excel не получается в Word получается, а с Excel ступор

01.10.2008, 13:50	#6
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Вот вам немного инструкций: Вложение 5853 Последний раз редактировалось mihali4; 08.11.2008 в 14:04.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перенос данных из MS Word в MS Excel ?	Nickd5	Помощь студентам	2	28.06.2008 20:40
Интеграция таблиц excel в документ word	SergeyPaterson	Microsoft Office Excel	1	29.05.2008 23:39
Delphi c SQL и выгрузка в Excel или word	girl23	БД в Delphi	7	24.10.2007 17:56
Из word в Excel	Biosasha	Microsoft Office Word	0	15.02.2007 22:32

01.10.2008, 12:33	#5
yaver Пользователь Регистрация: 28.01.2008 Сообщений: 15	как вставить рисунок в документ Word с заданием формата положения (в тексте; относительно верхнего левого угла листа 0,0)?

09.10.2008, 12:01	#7
yaver Пользователь Регистрация: 28.01.2008 Сообщений: 15	немного покапавшись получилось с таким кодом: Word_1.ActiveDocument.Shapes.AddPic ture(filename_k, False, True); Pic_1:=Word_1.ActiveDocument.Shapes .Item(1); Pic_1.PictureFormat.Brightness:=0.4 5; Pic_1.PictureFormat.Contrast:=0.65; Pic_1.RelativeHorizontalPosition:=w dRelativeHorizontalPositionPage; Pic_1.RelativeVerticalPosition:=wdR elativeVerticalPositionPage; Pic_1.Left:=0; Pic_1.Top:=0; Pic_1.Height:=595.3; Pic_1.Width:=841.9; Pic_1.WrapFormat.Type:=3; Pic_1.ZOrder(5);