Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Atalanta

Excel 365. Macro exportar celdas como imagen

Recommended Posts

Buenos días,

Lo primero que esteis bien junto con vuestras familias.

La siguiente macro funcionaba en excel 2016 y ha dejado de funcionar en excel 365. Lo curioso es que si lo ejecuto paso a paso (PF8) funciona pero si se jecuta la macro de corrido no exporta las imagenes y necesito exportar mas 500. Heprobado a poner un delay hasta de 10 sg ¿Podríais ayudadme por favor?

Muchísimas gracias y un cordial saludo.

----------------------------------------

Sub CopiaCeldasGrabaImagen(ruta)

    Dim RangoC As Range
    Dim Archivo As String
    Dim Imagen As Chart
    Dim Result As Boolean
    
    Archivo = ruta & ".gif"
    Set RangoC = Sheets("Vacaciones y puentes").Range("A1:H15")
    Sheets("Vacaciones y puentes").Select
    With RangoC
         .CopyPicture Appearance:=xlScreen, Format:=xlPicture
          Set Imagen = RangoC.Parent.ChartObjects.Add(30, 40, .Width, .Height).Chart
       End With
    Imagen.Paste
    Imagen.ChartArea.Border.LineStyle = 0
    '
    Imagen.Export Filename:=Archivo, filtername:="GIF"
    Imagen.Parent.Delete
    Set Imagen = Nothing
End Sub

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png