最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

vb.net借助剪貼板將圖片導(dǎo)入excel內(nèi)

 更新時間:2014年01月13日 11:54:46   作者:  
這篇文章主要介紹了vb.net將圖片導(dǎo)入到excel的方法,只要借助剪貼板將圖片粘貼到excel中就可以完成了,大家參考使用吧

復(fù)制代碼 代碼如下:

 Dim im as Image=Image.FromFile ("C:/picture.bmp")   '獲得Image

        System.Windows.Forms.Clipboard.SetDataObject(im, True)  '復(fù)制到剪貼板

        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

相關(guān)文章

最新評論

四会市| 西青区| 句容市| 阿城市| 敦化市| 阳朔县| 高要市| 进贤县| 集安市| 基隆市| 晋城| 阿拉善盟| 开化县| 棋牌| 廉江市| 北票市| 松桃| 涟水县| 陆川县| 旬邑县| 娱乐| 玉林市| 祁连县| 长子县| 太湖县| 二连浩特市| 额济纳旗| 竹溪县| 海丰县| 巴南区| 日土县| 阳曲县| 乌兰县| 阿克苏市| 扎鲁特旗| 襄汾县| 大荔县| 信宜市| 吴江市| 昭苏县| 凤台县|