Hej,
Jag har för tillfället denna koden i arbetet för att skriva ut en pallflagga:
filepath = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data..." & Cells(3, 18).Value
With ActiveSheet.Pictures.Insert(filepath)
.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
.Left = ActiveSheet.Range("I1").Left
.Top = ActiveSheet.Range("C4").Top
.Width = ActiveSheet.Range("A1:B1").Width
.Height = ActiveSheet.Range("A1:A5").Height
.Placement = 1
End With
Men det verkar vara något strul med api.qrserver.com och nu uppdateras inte dom 4 QR-koderna när jag kör anropet.
Någon som kan hjälpa mig med en lokal lösning som inte är avhängd av ett anrop mot en extern QR-konverter?
Tack!