特定的圖像並粘貼到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