Scribd
Upload
54 views3 pages

Codigo Qr.

The document contains code for generating QR codes from values in a spreadsheet and inserting the QR code images into the spreadsheet. It includes functions for clearing existing QR codes and values from the spreadsheet.

Uploaded by

RaudyOsitoPérez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
54 views3 pages

Codigo Qr.

The document contains code for generating QR codes from values in a spreadsheet and inserting the QR code images into the spreadsheet. It includes functions for clearing existing QR codes and values from the spreadsheet.

Uploaded by

RaudyOsitoPérez
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

#If VBA7 And Win64 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _


Alias "URLDownloadToFileA" ( _
ByVal pCaller As LongPtr, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As LongPtr, _
ByVal lpfnCB As LongPtr _
) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) As Long
#End If
Sub CrearQRMasivo()
Dim n&, i&
LimpiarImagenes
With wGenerador
n = .Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To n
CrearQRIndividual .Range("A" & i)
Next
End With
End Sub
Sub CrearQRIndividual(Valor As Range)
Dim Link$, Ruta$, QR As Object
Dim lado&, izqui&, nTop&
'Descargo el código QR
If Valor.Value = Empty Then
Exit Sub
End If

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


"&chld=H|0"
Ruta = ThisWorkbook.Path & "\chart.png"
URLDownloadToFile 0, Link, Ruta, 0, 0
'-----------------
'Ingreso la imagen
Set QR = ActiveSheet.Pictures.Insert(Ruta)
Kill Ruta
With wGenerador
nTop = .Range("B" & Valor.Row).Top
lado = .Range("B" & Valor.Row).Width
izqui = .Range("B" & Valor.Row).Left
With QR
.Top = nTop
.Width = lado
.Left = izqui
End With
.Range("B" & Valor.Row).RowHeight = lado
End With
'-----------------

End Sub
Sub LimpiarTodo()
LimpiarImagenes
wGenerador.Range("A4", "A" & Rows.Count) = Empty
End Sub

Sub LimpiarImagenes()
Dim imagen As Picture
For Each imagen In ActiveSheet.Pictures
imagen.Delete
Next
wGenerador.Range("A4", "A" & Rows.Count).RowHeight = wGenerador.Range("A1").RowHeight
End Sub
https://www.hispasat.com/es/informacion-util/apunta-tu-antena-a-hispasathttps://www.hispasat.com/es/informacion-
util/apunta-tu-antena-a-hispasat
https://www.xnxx.com/video-hw1st80/mi_madrastra_lavando_los_platos

https://www.grannymommy.com/movies/highly-wooly-cougar-debra-xxx-lovemaking-vid-2204981.html

http://www.tubewee.com/es/category/Mom/ctr/1/

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy