特定的图像并粘贴到Excel中使用VBA

我试图从一个细胞一个字符串，将它复制到一个免费的QR码生成器（例如| http://goqr.me/），并把产生的图像返回到我的电子表格。（我喜欢这个发生器，因为你不需要点击“提交” - 它会在文本输入时更新图像。假设/希望该功能使这更容易）特定的图像并粘贴到Excel中使用VBA

我试图避免安装新的条形码字体以及购买条形码特定的软件包。

使用下面的代码，我可以让浏览器打开并进入所需的文本。我需要一种方法将图像恢复到我的电子表格中。我目前使用的代码仅在单元格C1中返回“[object]”（作为文本）。

如何使用VBA将此图像放到剪贴板上？

Public ieApp As Object 

Sub Barcode() 

    Dim ieDoc As Object 
    Dim InputBox As Object 
    Dim qrBoxImage as Object 

    barcodeTerm = Range("B1").Value 

    If TypeName(ieApp) = "Object" Or TypeName(ieApp) = "Nothing" Then 
     Set ieApp = CreateObject("InternetExplorer.Application") 
     ieApp.Navigate ("http://goqr.me/") 

    End If 

     While ieApp.ReadyState <> 4 
     DoEvents 
     Wend 

     ieApp.Visible = True 

     Set ieDoc = ieApp.Document 

     Set InputBox = ieDoc.getElementsByName("text") 
     Set qrBoxImage = ieDoc.getElementByID("qrcode-preview-image") 


     InputBox.Item(0).Value = barcodeTerm 
     Range("C1").Value = qrBoxImage 

     Set ieDoc = Nothing 

End Sub

来源

2015-01-20 user2690652