Abraham Valencia
Respuestas de la comunidad
-
Abraham Valencia's post in Generar código QR was marked as the answer
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
-
Abraham Valencia's post in Imprimir pdf was marked as the answer
Hola. Ahora sí ya lo vi. Basta esta línea antes del Save:
objJSO.FlattenPages Comentas
-
Abraham Valencia's post in Abrir archivos o no macro open was marked as the answer
Hola, te adjunto una de varias formas. Saludos.
Archivo A.xlsm