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

不幸的是，我很确定没有使用文件名就无法添加图像。根据{{3}}，似乎没有AddPicture的任何重载除了字符串之外的任何内容，以确定要插入的图像。

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

将图像插入excel

1 个答案: