Jeden týpek poradil zmenu adresy, a je to funkčné. Vyskúšajte.
With .Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & Replace(TEXT, " ", "%20"))Link na popis parametrov.citovat
Zaslal/a parkovec 11.4.2024 22:21
Dobrý večer,
tohle mi fungovalo pro načítání QR kódu a najednou přestalo.
Ukazuje to na chybu v tučně zvýrazněném řádku.
Public Sub QRX()
Dim TEXT As String
With wsPrevod
TEXT = .Range("F28").Value
Application.ScreenUpdating = False
On Error Resume Next
.Shapes("QR_K27").Delete
On Error GoTo 0
If TEXT <> "" Then
With .Pictures.Insert("http://chart.apis.google.com/chart?chs=150x150&cht=qr&chl=" & Replace(TEXT, " ", "%20") & "&chld=M|0&choe=ISO-8859-1/chart.png")
.Name = "QR_K27"
.Left = wsPrevod.Range("K17").Left
.Top = wsPrevod.Range("K17").Top
End With
End If
Application.ScreenUpdating = True
End With
End Sub
Nevěděl by někdo co s tím?
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.