¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Captura en blanco m...
 
Compartir:
Avisos
Vaciar todo

Captura en blanco macro  

  RSS
Jhunior Cordova
(@jhunior-cordova)
Nuevo miembro Registered

Hola buen día estoy utilizando está macro para captura y guardar como imagen una tabla de mi Excel, pero hay momentos en que la foto sale en blanco.

 

 

Mi consulta es por que se genera a veces esa  captura en blanco. Adjunto la macro que utilizó y la foto.

 

 

Sub Captura()
'
' Captura Macro
'

'
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets.Add
ruta = ruta
archivo = ruta & "Reporte.JPEG"
'
rango = "B1:C8"
'
With h1.Range(rango)
fi = .Cells(1, 1).Row
ff = .Rows.Count + fi - 1
ci = .Cells(1, 1).Column
cf = .Columns.Count + ci - 1
izq = .Cells(1, 1).Left
der = h1.Cells(1, cf + 1).Left
baj = .Cells(1, 1).Top
arr = h1.Cells(ff + 1, 1).Top
anc = der - izq
alt = arr - baj
End With
'
h1.Range(rango).CopyPicture
h2.Shapes.AddChart
With h2.ChartObjects(1)
.Width = anc
.Height = alt
.Chart.Paste
.Chart.Export archivo
.Delete
End With
Application.DisplayAlerts = False
h2.Delete
Application.DisplayAlerts = True
'

End Sub

 

Citar
Respondido : 17/11/2020 8:16 pm
RET
 RET
(@ret)
Miembro Admin

Hola @jhunior-cordova

Supongo que llamas a esta sub desde alguna otra rutina. Te sugeriría que comentes la línea

Application.ScreenUpdating = False

y hagas la prueba.

Esto está inhabilitando la actualización de pantalla. Es bueno para acelerar la ejecución de macros, pero si quieres tener la pantalla actualizada para hacer una captura, o bien no la congelas o, antes de realizar la captura la habilitas de nuevo con Application.ScreenUpdating = True (igual puedes asegurarte de que se actualiza con un DoEvents) y entonces capturas.

Application.ScreenUpdating = True

DoEvents

Si necesitas seguir con la actualización de pantalla deshabilitada, lo haces de nuevo tras la captura.

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 17/11/2020 9:36 pm
Jhunior Cordova le gustó
Jhunior Cordova
(@jhunior-cordova)
Nuevo miembro Registered

@ret Hola Buenas Noches, comente la línea que me indicaste y funciono..  

Gracias... 😀 

ResponderCitar
Respondido : 03/12/2020 2:07 am

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado