 
			Respuestas de la comunidad
- 		
			Abraham Valencia's post in Generar código QR was marked as the answerPara 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 answerHola. Ahora sí ya lo vi. Basta esta línea antes del Save:
 objJSO.FlattenPages Comentas
 
 
			
		
		