Saltar al contenido

Abraham Valencia

Moderador

  • Unido

  • Última visita

Ver perfil Ver su actividad

Respuestas de la comunidad

  1. 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  
  2. 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
  3. 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