Capturar pantalla de excel y exportar como imagen

[Luis saenz]

Consulta:

Como podría capturar la pantalla de una hoja excel y exportarla como imagen
en un directorio preestablecido.

Slds.

[valoro]

Existe un magnífico programa para las capturas de pantalla que se
llama SnagIt.

Entre otras muchas cosas te permite exportar las capturas a una
carpeta de tu elección y con una extensión de tu elección (dpf,jpg,
png,...).

Un saludo.

Andrés

[Luis saenz]

Como hacer un proceso con programación er vbapp (Macros)

"valoro" wrote:

> .
>

[H�ctor Miguel]

hola, Luis !

> Como hacer un proceso con programacion er vbapp (Macros) ...

define: "capturar pantalla" (?)
- la pantalla completa ? (hoja, menus, barras de desplazamiento, titulos, etc.)
- solo un rango de datos ?
- que incluya los encabezados de fila y columna ?

(y cualquier otro detalle que tengas "en el tintero")

saludos,
hector.

[Luis saenz]

Miguel, la idea es capturar un rango de celdas y luego exportar la imagen
capturada a un directorio en el disco de la Pc.

"Héctor Miguel" wrote:

> .
>

[Gabriel Raigosa]

Saludos,

Yo uso un programa gratuito llamado FreeCommander, es un administrador
de carpetas, entre una de sus características es que pulsando
determinada combinación de teclas, cambia el puntero del mouse a una
pequeña cruz y a un modo de captura de pantalla, arrastro el mouse por
la pantalla y la imagen capturada se almacena en una carpeta o en el
porta papeles de Windows, el usuario personaliza el modo.

( http://www.freecommander.com/sp/index.htm )

Puedes encontrar otros programas free que pueden capturar en vídeo lo
que sucede en pantalla, ademas de también poder capturar en imágenes,
partes de la pantalla.

( http://www.screencapturer.com/ )

El Office (2003, 2007 y 2010) tiene un programa que se llama OneNote,
que también permite pasar a un modo de captura de pantalla presionando
una combinación de teclas, luego se arrastra el mouse por la porción de
pantalla deseada, la imagen capturada es guardada en el programa.

( http://office.microsoft.com/es-es/onenote/HP011152653082.aspx )

Adicionalmente cuentas con una gran cantidad de programas gratuitos que
hacen lo que quieres, puede buscar, descargar y escoger el que se
acomode a tus preferencias.

( http://www.softonic.com/s/captura-pantalla )

Con Excel y VBA, no tengo ni la mas mínima idea de como hacer un recorte
de pantalla, en lo personal el que mas uso es el FreeCommander, que
captura la porción que deseo y envía el archivo con un nombre numerico
tipo "yymmddhhmmss_x.jpg" a una carpeta que he creado en mis documentos
con el nombre "Capturas Pantalla".

Y si requiero editar una imagen capturada uso un programa gratuito
llamado PhotoFiltre, que permite hacer recortes modificar formato,
resolución y otras cosas adicionales.

( http://photofiltre.free.fr/frames_en.htm )

Gabriel

Luis saenz escribió:

[H�ctor Miguel]

hola, Luis !

> ... la idea es capturar un rango de celdas y luego exportar la imagen capturada a un directorio en el disco de la Pc.

ejemplo para exportar un grupo de celdas a una imagen con formato GIF o JPG?
suponiendo que deseas copiar el rango [B6:D16] de la hoja activa

=== en un modulo de codigo 'normal' ===
Sub CopiarUnRangoAGIF()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False
With Range("b6:d16")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste
.Chart.Export "c:\ruta y\sub carpeta para\tu archivo.gif"
.Delete
End With
Application.DisplayAlerts = True
End Sub

saludos,
hector.

__ previos __

[salva...@hotmail.com]

[angelc...@gmail.com]

Sub Captura()

Application.SendKeys "{1068}"

Do Until ie.ReadyState = 4
DoEvents
Loop

'keybd_event &H2C, 1, 0, 0
'DoEvents

With ActiveSheet.ChartObjects.Add(5, 5, ActiveWindow.Width / 2, ActiveWindow.Height / 2).Chart
While .Shapes.count = 0: .Paste: DoEvents: Wend
.Export ThisWorkbook.Path & "\docum\" & Format(Now, "yyyy-mm-dd hhmmss") & ".gif", "gif"
.Parent.Delete
End With
End Sub

[Lucas Recchioni]

Hola! como están? utilicé esta macro para guardar capturas de pantalla de una seccion de excel y funcionó a la perfección. Así que, por un lado, muchas gracias!.. El tema es el siguiente, esa misma planilla la tengo en otra computadora y quise hacerle lo mismo. En apariencia funciona bien porque no da ningún error, pero las imágenes que captura quedan en blanco, a pesar que en el rango elegido hay información. Podrian ayudarme?
ESTA ES LA MACRO, sirve para que me imprima en papel y me guarde una copia. En una pc anda y en el otra, no.

Sub Imprimir()

Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
Application.DisplayAlerts = False

Application.ScreenUpdating = False
ActiveSheet.Unprotect "4324"
With Range("H7:R33")

Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste

.Chart.Export "d:\Google Drive\LOCACIONES\REC. PROPIETARIOS\" & Format(Now, "mmmYY") & " - " & Range("Q9") & " - " & Range("P17") & " - " & Range("K19") & ".JPG"
.Delete
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("AH6").Select
Selection.Copy
Range("AH9").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("Y7:AI33").Select
Selection.Copy
Range("H7").Select
ActiveSheet.Paste
Range("a4").Select
ActiveSheet.Protect "4324"
ActiveWorkbook.Save
End Sub