¿Cómo exportar gráficos a gráficos en Excel?
En Excel, a veces, puede generar algunos gráficos a partir de los datos, para que los datos se vean más visuales y directos. Si desea guardar o exportar los gráficos a gráficos para algún propósito, ¿cómo podría hacerlo?
Exportar un gráfico a gráfico con código VBA
Exporte múltiples gráficos / imágenes / formas a gráficos con Kutools para Excel
Exportar un gráfico a gráfico con código VBA
El siguiente código de VBA puede ayudarlo a exportar un gráfico seleccionado de la hoja de trabajo activa como una imagen. Y la imagen se guardará en la misma ubicación que el libro de trabajo que aplicó. Haz lo siguiente:
1. Seleccione el gráfico que desea exportar.
2. Luego mantenga presionado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana del módulo.
VBA: Exportar gráfico a gráfico
Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub
4. Luego presione el F5 para ejecutar este código e ingrese el nombre del gráfico exportado en el cuadro de solicitud, vea la captura de pantalla:
5. Y luego haz clic OK, el gráfico seleccionado se ha exportado a gif formato y guardado en la misma ubicación que el archivo original. Ver captura de pantalla:
Con el código VBA anterior, solo puede exportar un gráfico a la vez, si desea exportar otros gráficos, primero seleccione otro gráfico y luego expórtelo con el código.
Exporte múltiples gráficos / imágenes / formas a gráficos con Kutools para Excel
Kutools for Excel, Exportar gráficos La utilidad puede exportar varios gráficos, imágenes o formas a la vez en Excel.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después de instalar Kutools para Excel, haga lo siguiente :(Descarga gratis Kutools para Excel ahora!)
1. Hacer clic Kutools Más > Import / Export > Exportar gráficos, ver captura de pantalla:
2. En la Exportar gráficos cuadro de diálogo, todos los gráficos, imágenes y formas se han incluido en el cuadro de lista de la izquierda, especifique el tipo que desea exportar, luego haga clic en para especificar un directorio para guardar los gráficos exportados, al mismo tiempo, puede elegir el formato de las imágenes del formato de exportación que necesite, como GIF, JPEG, TIF or PNG.
3. Luego haga clic OK, todos los gráficos, imágenes y formas se han exportado correctamente a la ubicación especificada. Ver capturas de pantalla:
; |
Haz clic Exportar gráficos para saber más sobre esta función.
Exportar gráficos
Exportar rango a archivo |
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!