Hola, deseo crear una imagen con extencion PNG de una rango de datos de Excel y guardarlo en una rita especifica, pero al realizarlo, me doy con la sorpresa que la nitides no es la misma que cuando lo hago manualmente, como hago con una macro para que la nitidez de la imagen no cambie.

Yo no lo he conseguido, si lo consigues, por favor, publica la solución.

Buenas tardes Angello.

Intenta este codigo:

Sub Graba_rango_PNG()

'

' Macro2 Macro

'

Dim libro_o        As Workbook        'libro origen

Dim libro          As New Workbook    'libro temporal

Dim directorio      As String

Dim hoja            As Worksheet


'

    Set libro_o = ActiveWorkbook

    directorio = libro_o.Path

    Selection.Copy


    'crea libro temporal y copia el rango

    Set libro = Workbooks.Add

    Set hoja = ActiveSheet

    hoja.Pictures.Paste.Select

    Application.CutCopyMode = False


    'graba como pagina web

    With libro.PublishObjects.Add(xlSourceSheet, directorio & "\temporal.htm" _

        , hoja.Name, "", xlHtmlStatic, "temporal", "")

        .Publish (True)

        .AutoRepublish = False

    End With


    'cierra libro temporal

    Application.DisplayAlerts = False

    libro.Close

    Application.DisplayAlerts = True



    'elmina resto de archivos creados

    Kill (directorio & "\temporal.htm")

    Kill (directorio & "\temporal_files\filelist.xml")

    Kill (directorio & "\temporal_files\temporal_image002.png")


End Sub[/CODE]

Aqui lo que hago es copiar y pegar el rango como grafico, luego lo grabo como pagina web y finalmente borro los archivos adicionales que genera grabar en este formato.

El resultado final es que en el directorio donde esta el archivo se crea una carpeta de nombre "temporal_files" y dentro encontrarar la imagen "temporal_image001.png".

espero que te sirva.

Comenta.

Saludos.....

esta bien tu programación, pero la imagen q se crea en png pierde su nitides, y eso no quiero q pase, porque cuando lo hago manualmente la nitidez es mas clara que cuando se hace con la macro.

Deseo q sea nítida, eso es amio, espero tu ayuda. gracias por la programacion