Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c