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

[Nirvana0]

分不够单独加.

[rainstormmaster]

'首先引用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

[zhangjie1234]

你可以先在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