Crear una imagen JPG de un rango de celdas en Excel

Escrito por Administrador

14 de febrero de 2023

¿Has necesitado alguna vez capturar una imagen de un rango de celdas en formato JPG? ¿Y si te dijese que esta operación se puede realizar de manera automática? Vamos a ver cómo.

He creado una tabla con la evolución del IPC a lo largo de los tres últimos años. A la derecha, he incluido un minigráfico de barras a modo ilustrativo.

enviar-pedidos-proveedores-por-email-excel
También, he añadido un botón para crear una imagen en formato JPG del rango de celdas que previamente hayamos definido en el código que lo acompaña. Os lo comparto a continuación,
Sub Crear_imagen()

'Dimensionamos las variables

Dim Hoja As Worksheet
Dim Rango As Range
Dim Objeto As ChartObject
Dim Ancho As Long, Alto As Long

'Establecemos la hoja y el rango de trabajo

Set Hoja = ActiveSheet
Set Rango = Range("B2:O7")

'Creamos el objeto imagen

Rango.CopyPicture xlScreen, xlPicture
Ancho = Rango.Width
Alto = Rango.Height

Set Objeto = Hoja.ChartObjects.Add(Left:=0, Top:=0, Width:=Ancho, Height:=Alto)
Objeto.Activate

'Exportamos el objeto a un archivo de imagen .jpg a la ubicación por defecto (Mis Documentos)

With Objeto.Chart

.Paste
.Export Filename:="IPC.jpg", Filtername:="JPG"

End With

'Borramos el objeto de la hoja

Objeto.Delete

End Sub

He configurado el ejemplo para realizar una captura del rango comprendido entre la celda B2 y la celda O7. El archivo se guardará en la carpeta Mis Documentos con el nombre IPC.jpg (configurado también dentro del código).

El resultado es el siguiente,

enviar-pedidos-proveedores-por-email-excel

Podríamos modificar el código para que, en lugar de prefijar el rango dentro del código, la captura se realizase en base a la selección actual de celdas. Os dejo la idea para que la desarrolléis usando este ejemplo como base.

Espero que te sirva este ejemplo para crear una imagen JPG de un rango de celdas en Microsoft Excel. Descarga el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto