1 static void ExportImageToExcel(Args _args)
2 {
3 container ImaPos;
4 COM comWorksheet;
5 COM comShapes;
6 COM comCells;
7 COM comFont;
8 COM comPageSetup;
9 SysExcelWorksheet sheet;
10 SysExcelApplication excel;
11 SysExcelWorkbooks books;
12 SysExcelWorkbook book;
13 SysExcelWorksheets sheets;
14 SysExcelCells cells;
15 COMVariant variant = new COMVariant();
16 COMVariant xpos = new COMVariant();
17 COMVariant ypos = new COMVariant();
18 COMVariant state = new COMVariant();
19 COMVariant width = new COMVariant();
20 COMVariant height = new COMVariant();
21
22 image MyImage=new image();
23 str 200 FileName;
24 container newPos;
25 int _nheight;
26 real _ywidth,_yheight,curRow,curCol;
27 ;
28 curCol=1;
29 _ywidth=1;
30 _yheight=1;
31 FileName='D:\\My Pictures\\Good Pic\\1600FG100_013.jpg';
32 if (FileName)
33 {
34 excel = SysExcelApplication::construct();
35 books = excel.workbooks();
36 book = books.add();
37 sheets = book.worksheets();
38 sheet = sheets.itemFromNum(1);
39
40 cells=sheet.cells();
41 variant.int(-4167);
42 comWorkSheet=sheet.comObject();
43
44 comPageSetup = comWorkSheet.PageSetup();
45 comPageSetup.LeftMargin(28);
46 comPageSetup.RightMargin(28);
47
48 comCells=comWorkSheet.Cells();
49 comFont=comCells.Font();
50 comFont.size(9);
51
52 comCells.rowheight(16.5);
53 comCells.ColumnWidth(8.435);
54
55 }
56 MyImage.loadImage(FileName);
57 try
58 {
59 variant.bStr(FileName);
60 xpos.int(1);
61 ypos.int(1);
62 state.int(2);
63 width.int(MyImage.width());
64 height.int(MyImage.height());
65 comShapes = comWorkSheet.shapes();
66 comShapes.addPicture(variant,1,1,_ywidth,_yheight,width,height);
67 }
68 catch(Exception::Error)
69 {
70 comWorkSheet.close();
71 excel.quit();
72 }
73 excel.visible(true);
74 }
