Crear código QR con el valor de una celda

[jblaz01]

Buenas tardes, de nuevo por aquí pidiendo ayuda ?‍♂️ . Espero que se encuentren bien.

He buscado como hacer para crear codigos qr desde el valor de una celda y he encontrado un codigo, pero no me funciona.

Adjunto el fichero que tengo con el código.

El error salta en la línea         Set QR = ActiveSheet.Pictures.Insert(Ruta)

¿Cómo podría solucioanr este error.?

 

Gracias de antemano. Un cordial saludo.

 

QR Excel.xlsm

[jblaz01]

Hola de nuevo, he encontrado la solución. La pongo por si le vale a alguién.

En el siguiente trozo de codigo,  cambiar "ruta" por "link" y eliminar la linea kill ruta

'Ingreso la imagen
        Set QR = ActiveSheet.Pictures.Insert(Ruta)
        Kill Ruta
        With wGenerador

Adjunto el archivo con la corrección.

Saludos cordiales.

QR Excel.xlsm

[jblaz01]

Hola de nuevo, me encuentro con un nuevo problema y este si me esta superando de verdad.

Quiero crear un código qr con el siguiente enlace:

https://www.xxxx.es?utm_source=asesoria&utm_medium=postal&utm_campaign=desayuno&utm_content=000 El codigo qr que genera  se corresponde con la siguiente url: https://www.xxxx.es?utm_source=asesoria Lo que me ocurre es que por alguna razón que esta en el código VBA no reconoce el simbolo & y a partir de ahí genera el qr sin todo lo que viene detras. Ayuda, por favor. Muchas gracias. Feliz fin de semana. Javier.

[Abraham Valencia]

Hola. Hay una parte innecesaria. Reemplaza la línea respectiva solo por esto:

 Link = "http://chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" & Valor.Value

Saludos

[jblaz01]

Buenos dias:

Gracias por tu aportación @avalencia , lamento decirte que no me ha funcionado.

Con ayuda de mi hijo, (bueno lo ha hecho el solito, recien levantado y con la recompensa de un buen café y unas porras recien hechas) hemos averiguado que para una url simple funciona perfectamente, pero cuando se ponen & los interpreta como variables en lugar de como parte de la url.

La solución es sustituir la linea por esta:

Link = "http://chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" & WorksheetFunction.EncodeURL(Valor.Value) & "&chld=H|0"

Adjunto el fichero funcionando, para cualquier tipo de url. Espero que le sirva a alguien.

Gracias, un cordial saludo.

QR Generator Excel .xlsm

[Antoni]

A mi esto me funciona:

Private Sub Generar(Rango As Range)
URL = "https://chart.googleapis.com/chart?chs=180x180&cht=qr&chld=l&chl=" & Rango.Value
Set Imagen = ActiveSheet.Pictures.Insert(URL)
End Sub

 

[Abraham Valencia]

Hace 4 horas, jblaz01 dijo:

Buenos dias:

Gracias por tu aportación @avalencia , lamento decirte que no me ha funcionado.

Con ayuda de mi hijo, (bueno lo ha hecho el solito, recien levantado y con la recompensa de un buen café y unas porras recien hechas) hemos averiguado que para una url simple funciona perfectamente, pero cuando se ponen & los interpreta como variables en lugar de como parte de la url.

La solución es sustituir la linea por esta:

Link = "http://chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" & WorksheetFunction.EncodeURL(Valor.Value) & "&chld=H|0"

 

Pues creo que no copiaste y/o anotaste bien ya que, a Antoni le funciona, a mí me funciona, etc. Es más, tengo algo hecho hace años con el 10% de todo código que estás usando y con la línea en cuestión sin dilema alguno. Claro, al final lo importante es que hallaste solución. 

[jblaz01]

Hola de nuevo:

Creo que no he explicado bien el problema con el que me encontraba.

Tanto la linea original de mi documento, como las que habeis aportado amablemente, @avalencia y  @Antoni funcionan siempre y cuando la url de la que se quiere generar el QR no contenga el simbolo &. En ese caso se genera un QR que se corta justo donde está ese simbolo.

¿Porqué necesito url que contengan el simbolo &? porque son url del tipo UTM que separan sus parametros con ese simbolo.

Con la linea que yo he aportado, funciona en cualquiera de las situaciones.

Gracias, de nuevo. un cordial saludo.