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 }