vb.net借助剪贴板将图片导入excel内

 dim im as image=image.fromfile ("c:/picture.bmp")   '获得image

        system.windows.forms.clipboard.setdataobject(im, true)  '复制到剪贴板

        dim xlapp as excel.application = new excel.application()
        dim xlbook as excel.workbook

        dim xlsheet as excel.worksheet

        xlbook = xlapp.workbooks().add
        xlsheet = xlbook.worksheets("sheet1")

       dim range as excel.range = xlsheet.range(xlapp.cells(4, 1), xlapp.cells(4, 1))  '粘贴图片的位置
        xlsheet.paste(range, im)  '将图片插入excel