使用 VBA 從網頁復制特定圖像並粘貼到 Excel 中

Question

我正在嘗試從單元格中獲取字符串，將其復制到免費的二維碼生成器（例如 | http://goqr.me/ ），然后將生成的圖像帶回我的電子表格。 （我喜歡這個生成器，因為你不需要點擊“提交”——它會在輸入文本時更新圖像。假設/希望這個功能能讓這更容易）

我試圖避免安裝新的條形碼字體和購買特定於條形碼的包。

使用下面的代碼，我可以讓瀏覽器打開並輸入所需的文本。 我現在需要一種方法將圖像恢復到我的電子表格中。 我當前使用的代碼僅在單元格 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

Answer 1

您可以按照此處詳細說明的步驟操作：

http://social.technet.microsoft.com/wiki/contents/articles/23860.print-screen-to-an-image-using-access-vba.aspx

盡管該示例在 Access 中使用，但它仍然是 VBA 代碼，因此它仍然應該在 Excel 中工作