Question

我尝试从单元格中取出一个字符串，将其复制到免费的二维码生成器（ex | http://goqr.me/）中，然后将生成的图像重新放回电子表格中。（我喜欢这个生成器，因为你不需要点击＆＃34;提交＆＃34; - 它会在输入文本时更新图像。假设/希望该功能使这更容易）

我试图避免安装新的条形码字体和购买特定条形码的包裹。

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

如何使用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中工作

从网页复制特定图像并使用VBA粘贴到Excel中

1 个答案: