¿Cómo guardar una tabla dinámica como imagen usando VBA?

Contenido

1 Conoce nuestra tienda
- - 1.0.1 Ver más productos
2 Mejora tu nivel y logra tus objetivo
3 Ayúdanos a hacer crecer el proyecto
- 3.1 Relacionado

Para guardar una tabla dinámica como imagen utilizando VBA en Excel, puedes seguir estos pasos. El siguiente código VBA tomará la tabla dinámica, la copiará como una imagen y luego la guardará como un archivo de imagen en tu computadora.

   Sub GuardarTablaDinamicaComoImagen()
       Dim ws As Worksheet
       Dim pvt As PivotTable
       Dim sh As Shape
       Dim picPath As String
       
       ' Define la hoja de trabajo y el nombre de la tabla dinámica
       Set ws = ThisWorkbook.Sheets("NombreDeTuHoja") ' Cambia este nombre según sea necesario
       Set pvt = ws.PivotTables("NombreDeTuTablaDinamica") ' Cambia este nombre según sea necesario
       
       ' Selecciona la tabla dinámica
       pvt.TableRange2.CopyPicture Appearance:=xlScreen, Format:=xlPicture
       
       ' Pega como imagen
       Set sh = ws.Pictures.Paste()
       
       ' Define la ruta y el nombre del archivo donde deseas guardar la imagen
       picPath = "C:RutaATuArchivoTablaDinamica.png" ' Cambia la ruta según sea necesario
       
       ' Guarda la imagen como archivo
       sh.Export FileName:=picPath, FilterName:="PNG"
       
       ' Borra la imagen de la hoja de cálculo
       sh.Delete
       
       MsgBox "La imagen se ha guardado en " & picPath
   End Sub

Abre el Editor de VBA:

Presiona `ALT + F11` para abrir el Editor de VBA en Excel.

Inserta un Módulo:

Haz clic en `Insertar` > `Módulo` para crear un nuevo módulo.

Copia el Siguiente Código en el Módulo:
Configura el Código:

Cambia `»NombreDeTuHoja»` al nombre de la hoja que contiene tu tabla dinámica.
Cambia `»NombreDeTuTablaDinamica»` al nombre de tu tabla dinámica.
Cambia `picPath` a la ruta donde deseas guardar la imagen y asegúrate de que tenga permisos de escritura.

Ejecuta el Código:

Presiona `F5` mientras estás en el módulo del editor para ejecutar el script.

Con este procedimiento, tu tabla dinámica se guardará como una imagen en la ruta especificada. Asegúrate de que las rutas proporcionadas sean correctas y que tengas permisos para escribir en el directorio de destino.

facebooklinkedin