Delphi excel вставить картинку

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

//загружаем картинку из БД. Secur - TADOQuery
Blob:=TADOBlobStream.Create(TBlobField(DMF.Secur.FieldByName('podp')),bmRead);
bmp.LoadFromStream(Blob);
//дальше коннект к Екселю через TExcelApplication
//впихиваю картинку в буфер обмена
ClipBoard.Assign(bmp);
//Вариант 1
xl.Range['F47',EmptyParam].PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone,  True, False); //ошибку выдает
//вариант 2
xSheet.Range['F47',EmptyParam].PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone, True, False); //та же ошибка
//вариант 3
xSheet.Paste('F47','F47', LCID);
//вариант 4
xl.Range['F47',EmptyParam].Insert(xlPasteAll,xlPasteSpecialOperationNone) ;
//ну и вариант 5
xl.Range['F47',EmptyParam] .Select;
xl.ActiveCell.PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone, True, False);

1
2

xSheet.Range.Cells[1, 1].Select; //Выделяем ячейку. На её месте будет вставлена картинка.
xSheet.PastSpecial('CF_BITMAP'); //Вставка картинки из буфера обмена.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  FnBook = 'FilesКнига-01.xls';
  FnPicture = 'FilesPicture-01.bmp';
var
  exApp, exBook, exSheet, exRng, exShape : OleVariant;
  Bm : TBitmap;
  Path : String;
  W, H : Extended;
begin
  //Путь к той папке, в которой располжен исполняемый файл нашей программы.
  //В конце пути записан слеш "".
  Path := ExtractFilePath(ParamStr(0));
 
  //Попытка подключиться к корневому объекту MS Excel.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(Handle, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
  exApp.Visible := True;
  //Открываем файл рабочей книги.
  exBook := exApp.WorkBooks.Open(FileName:=Path + FnBook);
  //Получаем ссылку на первый лист рабочей книги.
  exSheet := exBook.Worksheets[1];
  //Ссылка на ячейку с адресом "C4".
  exRng := exSheet.Cells[4, 3]; //Или так: exRng := exSheet.Cells['C4'];
 
  //Размещаем картинку на листе MS Excel таким образом, чтобы её левый
  //верхний угол совпал с левым верхним углом ячейки "C4".
  //При этом, для того, чтобы сохранить исходный размер изображения, следует
  //получить сведения о размерах изображения и вычислить ширину и высоту
  //в типографических пунктах. Именно в типографических пунктах указываются
  //размеры при вызове метода Shapes.AddPicture().
  Bm := TBitmap.Create;
  try
    //Загружаем изображение.
    Bm.LoadFromFile(Path + FnPicture);
    //Вычисляем размеры изображения в типографических пунктах.
    //Ширина.
    W := exApp.InchesToPoints(Bm.Width / exApp.DefaultWebOptions.PixelsPerInch);
    //Высота.
    H := exApp.InchesToPoints(Bm.Height / exApp.DefaultWebOptions.PixelsPerInch);
  finally
    FreeAndNil(Bm);
  end;
  //Размещаем картинку на листе MS Excel.
  exShape := exSheet.Shapes.AddPicture(Filename:=Path + FnPicture,
    LinkToFile:=False, SaveWithDocument:=True,
    Left:=exRng.Left, Top:=exRng.Top, Width:=W, Height:=H);
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  SysUtils,
  Office_TLB in 'Office_TLB.pas',
  VBIDE_TLB in 'VBIDE_TLB.pas',
  Excel_TLB in 'Excel_TLB.pas',
  variants;
 
  var
  ea:_Application;
  WB : _Workbook;
  Sheet: _Worksheet;
 
  er:ExcelRange;
 
begin
  try
      ea:=CoExcelApplication.Create;
      WB:= ea.Workbooks.Add(EmptyParam,0);
 
 
    ea.ActiveSheet.Shapes.AddPicture('C:test.png',EmptyParam,True,20,300,300,300,EmptyParam);
 
ea.Workbooks[1].SaveCopyAs('C:file.xls',0);
  finally
  ea.Quit;
  if assigned(ea) then  ea:=nil;
 
  end;
 
  Writeln('ok');
  Readln;
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

uses ComObj;
...
var
  ExcelApp,WorkBook: OleVariant;
begin
  try
    ExcelApp := GetActiveOleObject('Excel.Application');
  except
    try
      ExcelApp := CreateOleObject('Excel.Application');
    except on E: Exception
    do begin
       ShowMessage('Не удалось запустить Excel!'#13#10 + E.Message);
       Exit;
       end;
    end;
  end;
  WorkBook := ExcelApp.WorkBooks.Add;
  WorkBook.ActiveSheet.Pictures.Insert('C:test.png');
  ExcelApp.Visible := True;
end;