'首先引用excel对象 Option Explicit Dim excelapp As New Excel.Application Dim excelbook As Excel.WorkbookPrivate 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
你可以先在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
Option Explicit
Dim excelapp As New Excel.Application
Dim excelbook As Excel.WorkbookPrivate 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
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