Подскажите, как можно из 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;

Только учти, что картинки в ячейку не вставляются. У них своя координатная система

Подскажите, как можно из Delphi вставить в Excel каринку Найти похожие ветки