vb.net - 插入图像到Excel

Question

我使用的是 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？

Answer 1

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

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