Форум: "Потрепаться";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Вниз
Подскажите, как можно из Delphi вставить в Excel каринку Найти похожие ветки
← →
Suvorov (2003-03-25 05:25) [0]Привет всем! Подскажите, как можно из Delphi вставить в Excel каринку. Никак не получается. А еще и в определенную ячейку надо.
Если можно, пожалуйста киньте код.
← →
McSimm (2003-03-25 11:15) [1]Что-то вроде этого (не приведен код проверки ошибок):
var
XLApp, XLWb, XlSheet, XLPic: OleVariant;
procedure TForm1.Button1Click(Sender: TObject);
begin
XLApp := CreateOleObject("Excel.Application");
XLWb := XLApp.WorkBooks.Add;
XLSheet := XLWb.Sheets.Add;
(XLSheet.Cells[5,5]).Select;
XLPic := XLSheet.Pictures.Insert("E:\My Documents\My Pictures\123.jpg");
// Можно настроить XLPic по своему усмотрению
XLApp.Visible := True;
end;
Только учти, что картинки в ячейку не вставляются. У них своя координатная система
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c