Excel 365. Macro exportar celdas como imagen

[Atalanta]

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

 

[Antoni]

Tengo Office 365 y la macro me funciona sin problemas.

Sube tu archivo y le echo un vistazo.