将图像插入到excel答案

【问题标题】：inserting an image to excel将图像插入到excel
【发布时间】：2011-09-17 06:24:33
【问题描述】：

我正在使用visualbasic express。我想将图像插入到 excel 应用程序中。我已经成功了。这是代码；

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    oExcel = CreateObject("Excel.Application")
    oExcel.Visible = True
    oBook = oExcel.Workbooks.Add
    oSheet = oBook.Worksheets(1)
    oSheet.Shapes.AddPicture("C:\Logo\logo.bmp", False, True, 415, 1, 20, 30)

效果很好。但我不想给出图片的位置（“C:\Logo\logo.bmp”），而是想把图片本身。我的意思是我想像这样更改最后一行：

    oSheet.Shapes.AddPicture(Me.Picturebox1.image , False, True, 415, 1, 20, 30)

但它不起作用。有没有办法在不使用位置的情况下将图片插入到 excel 中？

【问题讨论】：

标签： vb.net visual-studio visual-studio-2008 visual-studio-2010

【解决方案1】：

不幸的是，我很确定不使用文件名就无法添加图像。根据MSDN docs for Shapes 的说法，AddPicture 似乎没有任何重载，它使用字符串以外的任何内容来确定您要插入的图像。

这里的目标是添加您不一定在磁盘上的某个位置（或不知道它在磁盘上的位置）的图像吗？如果是这种情况，您可以使用ImageLocation 属性获取图像的位置（路径或URI）并将其传递给AddPicture。您也可以先使用Image.Save() 将图像保存到磁盘，然后将新路径传递给AddPicture。

【讨论】：