Generar código QR

[muyayito]

Buenas a todos foro.

Estoy dandole vueltas a ver que fallo me da la macro para generar un codigo QR y no soy capaz de detectarlo.

Y otra cosa, como se modificaría la macro de borrar el codigo? Porque boton que haya para ejecutar macro,  se lo ventila.

Gracias a todos por vuestro tiempo.

Generar código QR.xlsm

[Abraham Valencia]

Hola.  Ya no funciona hace un año aproximadamente, Google ya había informado, al menos hace una década, que consideraba obsoleto el uso de dicha API y ya apagaron los servidores. Las alternativas son acordes a la versión de Excel que usar ¿tienes la versión 2016 como dice en tu perfil o ya actualizaste?

[muyayito]

Buenas @Abraham Valencia gracias por responder.

Sigo en la versión 2016.

[Abraham Valencia]

Para esa versión se me ocurre usar otra web y una UDF:

 

Function InsertQRCode(celda As Range) As String
    
    Dim mirango As Range
    Dim QRCodeURL As String
    
    Set mirango = Application.Caller
    
    QRCodeURL = "https://quickchart.io/qr?text=" & celda.Value
    
    With ActiveSheet.Pictures.Insert(QRCodeURL)
        .Left = mirango.Left
        .Top = mirango.Top
        .Width = mirango.Width
        .Height = mirango.Height
    End With
    
    InsertQRCode = ""
    
End Function