
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[216.73.216.96] |
![]() |
|
Сообщ.
#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); ... |