Question

用vb6 如何把显示的图片放入Excel指定的表格中

用vb6 如何把显示的图片放入Excel2007指定的表格中？如显示的图片的控件是picture1,要放到Excel2007的sheet1的D10单元格内。

用xlsheet.Cells(10, 4) = Picture1显示出来的是一串数字，不知道是什么意思。我要的是显示的图片

Answer 1

SavePicture Picture1.Picture, App.Path & "\pic1.bmp"

xlsheet.Range("10,4").Select
ActiveSheet.Pictures.Insert(App.Path & "\pic1.bmp").Select

追问

SavePicture Picture1.Picture, App.Path & "\pic1.bmp" 保存的图片文件名是有的，但是打不开？双击图片，发现不能预览。所以后面插入图片出错

追答

你的picture1里面的图片是怎么画的？savepicture应该能存的。把你画图的代码贴出来看看