Ir al contenido principal

Entradas

Mostrando entradas de julio, 2019

Código VBA para Resumir una AppVBA Excel

Instalar Referencias -> Microsoft Visual Basic for Application Extensibility 5.3 Sub Extraditar() Dim comp As VBIDE.VBComponent archivo = ActiveWorkbook.Name n = 0 For Each comp In ActiveWorkbook.VBProject.VBComponents If comp.Name "ImprimirTodo" And comp.Name "ThisWorkbook" Then 'Debug.Print comp.Type comp.Export "f:\archivo" & n Open "f:\archivo" & n For Append As #1 Print #1, "----[/" & comp.Name & "]" Close #1 Debug.Print comp.Name n = n + 1 If comp.Type = 100 Then Debug.Print comp.Name Set rango = ActiveWorkbook.Sheets(comp.Name).UsedRange Open "f:\archivo" & n For Output As #1 For Each r In rango If r.Formula "" And r.Value "" Then Pri...

ImageMagick y la posibilidad de convertir de PSD a PNG

Según este sitio se instala en GNU/Linux ImageMagick (apt-get install imagemagick) de 14 Mb y hay que modificar el archivo /etc/ImageMagick-6/policy.xml con el siguiente comando: nano /etc/ImageMagick-6/policy.xml Y cambiamos el atributo rights que dice NONE para ciertos elementos por READ|WRITE . Y luego tranquilamente podremos ejecutar... > sudo convert 'archivo.psd' imagen-%d.png Entonces extrae las capas o páginas de un archivo PSD en varias imágenes PNG.