Thema Datum  Von Nutzer Rating
Antwort
27.08.2019 13:32:16 Andreas Hess
NotSolved
27.08.2019 14:10:13 Gast13960
NotSolved
27.08.2019 14:13:12 Gast16616
NotSolved
27.08.2019 14:43:38 Gast253
NotSolved
27.08.2019 14:27:09 Gast36350
NotSolved
27.08.2019 15:18:08 Andreas Hess
NotSolved
Rot QR-Code aus Internet einsetzen
 28.08.2019 00:51:56 Gast98018
Solved
28.08.2019 14:05:01 Andreas Hess
NotSolved
28.08.2019 18:02:37 Gast98018
NotSolved

Ansicht des Beitrags:
Von:
Gast98018		 Datum:
28.08.2019 00:51:56		 Views:
608		 Rating:
     
Antwort:
 Nein
Thema:
QR-Code aus Internet einsetzen		 
Option Explicit

Sub Test()
  
  With CreateObject("WinHTTP.WinHTTPRequest.5.1")
    
    .Open "GET", "http://api.qrserver.com/v1/create-qr-code/?data=" & ThisDocument.Content.Text & "&size=150x150&margin=20&format=png", False
    .Send
    
    If .StatusText = "OK" Then
      Write2File "D:\qr-code.png", .ResponseBody
      MsgBox "Fertsch!", vbInformation
    Else
      MsgBox "Request failed!", vbExclamation
    End If
  End With
  
End Sub

Private Function Write2File(File As String, BinaryData) As Variant
  On Error GoTo ErrHandler
  With CreateObject("ADODB.Stream")
    .Type = 1 'adTypeBinary
    .Open
    .Write BinaryData
    .SaveToFile File, 2 'adSaveCreateOverWrite
  End With
  Write2File = 0
Exit Function
ErrHandler:
  Write2File = Err.Number
End Function

Getestet mit z.B.

Das hier ist Lambda -> λ und das da ein schnödes ue -> ü.

 

Das Bild dann noch in Word eizunfügen überlasse ich dir. ;)

 

Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.08.2019 13:32:16 Andreas Hess
NotSolved
27.08.2019 14:10:13 Gast13960
NotSolved
27.08.2019 14:13:12 Gast16616
NotSolved
27.08.2019 14:43:38 Gast253
NotSolved
27.08.2019 14:27:09 Gast36350
NotSolved
27.08.2019 15:18:08 Andreas Hess
NotSolved
Rot QR-Code aus Internet einsetzen
 28.08.2019 00:51:56 Gast98018
Solved
28.08.2019 14:05:01 Andreas Hess
NotSolved
28.08.2019 18:02:37 Gast98018
NotSolved