怎样把picturebox中的图形添加到Excel中并打印呢,分不够单独加.

分不够单独加. 问题点数：100、回复次数：2Top

1 楼rainstormmaster（暴风雨 v2.0）回复于 2003-12-03 22:22:09 得分 50

'首先引用excel对象  
  Option   Explicit  
  Dim   excelapp   As   New   Excel.Application  
  Dim   excelbook   As   Excel.Workbook  
   
  Private   Sub   Command1_Click()  
  '先将图片保存为文件  
  SavePicture   Picture1.Image,   "c:\temp.bmp"  
  '这里最好加上延时函数，你自己写吧，我就不写了（不要用sleep）  
  Set   excelbook   =   excelapp.Workbooks.Add  
  excelbook.ActiveSheet.Pictures.Insert("c:\temp.bmp").Select  
  excelapp.ActiveWindow.SelectedSheets.PrintOut   Copies:=1,   Collate:=True  
  '至此完成打印，下面应该进行收尾工作，如关闭excel（用excelapp.quit）释放对象资源等  
  End   Sub  
  Top

2 楼zhangjie1234（后来者）回复于 2003-12-03 22:26:55 得分 50

你可以先在EXCEL里录制一个插入图片的宏。  
   
  VB语法应当是，.....  
  dim   exl   as   new   Excel.Applaction  
  dim   sheet   as   Excel.Worksheet  
  exl.wrokbooks.open   "xls文件的路径"  
  set   sheet   =exl.activeworkbook.worksheet("Sheet1")  
  sheet.Rang("网格编号").selec  
  sheet.insert...("图片的路径")   '这句话记得不清楚了你把录制的宏就放在这里  
  exl.visible   =True  
  Top

相关问题

• excel
• exl
• excelapp
• sheet
• 图片

• 帖主：Nirvana0
• rainstormmaster
• zhangjie1234

• Visual Basic类图书
• Visual Basic类源码下载