из Delphi -> вставить TImage -> в Excel
, или TBitmap
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.216.141] |
|
|
ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
из Delphi -> вставить TImage -> в Excel
, или TBitmap
|
Сообщ.
#1
,
|
|
|
|
Хочу вставить TImage или TBitmap в ячейку экселевского документа. У кого есть опыт? Помогите!
А еще желательно, чтоб ячейка автоматически устанавливала свой размер по размеру вставляемой картинки. а так я вставляю текст: ![]() ![]() var Excel, WorkBook, Sheet: Variant; ......... Excel := CreateOleObject('Excel.Application'); Excel.Workbooks.Open(FileName); WorkBook := Excel.WorkBooks.Item[1]; Sheet := Workbook.Sheets.Item[1]; ........... Sheet.Cells[5, 5] := 'Мой текст в ячейке'; |
|
Сообщ.
#2
,
|
|
|
|
Метод AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
![]() ![]() ... Sheet.Shapes.AddPicture('C:\1.bmp',true,true,0,0,128,128); ... |