如何象EXCEL导入VB程序中的图片

Question

已经保存过的图象导入EXCEL是：
    zsbexcel.Range("A16").Select
    zsbexcel.ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\11.bmp").Select那要导出程序中picture1.image到EXCEL怎么办？

Answer 1

Clipboard.SetData Me.Picture1.Picture
zsbexcel.ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\11.bmp").Select
ActiveSheet.Paste

Answer 2

Clipboard.SetData Me.Picture1.Picture
ActiveSheet.Paste