Скопируйте конкретное изображение с веб-страницы и вставьте в Excel, используя VBA

Question

Я пытаюсь взять строку символов из ячейки, скопировать ее в бесплатный генератор QR-кода (ex | http://goqr.me/) и перенести полученное изображение обратно в мою электронную таблицу. (Мне нравится этот генератор, потому что вам не нужно нажимать "отправить" - он обновляет изображение при вводе текста. Предполагая / надеясь, что эта функция облегчит эту задачу)

Я стараюсь избегать установки новых шрифтов со штрих-кодом и покупки пакетов со штрих-кодом.

Используя приведенный ниже код, я могу заставить браузер открыться и ввести нужный текст. Мне нужен способ вернуть изображение обратно в мою электронную таблицу. Код, который я сейчас использую, просто возвращает "[объект]" (в виде текста) в ячейку С1.

Как я могу использовать 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