Как экспортировать диаграммы в графику в Excel?

В Excel иногда можно создавать диаграммы на основе данных, чтобы данные выглядели более наглядными и прямыми. Если вы хотите сохранить или экспортировать диаграммы в графику для какой-либо цели, как вы могли бы это сделать?

Экспорт диаграммы в графику с кодом VBA

Экспорт нескольких диаграмм / изображений / фигур в графику с помощью Kutools for Excel

Экспорт диаграммы в графику с кодом VBA

Следующий код VBA может помочь вам экспортировать выбранную диаграмму из активного листа в виде изображения. И изображение будет сохранено в том же месте, что и примененная вами книга. Сделайте следующее:

1. Выберите диаграмму, которую вы хотите экспортировать.

2. Затем удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код в окно модуля.

VBA: экспорт диаграммы в графику

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, Затем нажмите F5 ключ для запуска этого кода и введите имя для экспортированной диаграммы в поле подсказки, см. снимок экрана:

5, Затем нажмите OK, выбранная диаграмма была экспортирована в Gif формат и сохранен в том же месте, что и исходный файл. Смотрите скриншот:

С помощью приведенного выше кода VBA вы можете экспортировать только одну диаграмму за раз. Если вы хотите экспортировать другие диаграммы, сначала выберите другую диаграмму, а затем экспортируйте ее с кодом.

Экспорт нескольких диаграмм / изображений / фигур в графику с помощью Kutools for Excel

Kutools for ExcelАвтора Экспорт графики Утилита может экспортировать несколько диаграмм, изображений или фигур одновременно в Excel.

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

1. Нажмите Кутулс Плюс > Импорт / Экспорт > Экспорт графики, см. снимок экрана:

2. В Экспорт графики диалоговое окно, все графики, фотографии и формы перечислены в левом поле списка, укажите тип, который вы хотите экспортировать, затем щелкните  кнопку, чтобы указать каталог для сохранения экспортированной графики, в то же время вы можете выбрать формат изображений из формата экспорта, который вам нужен, например GIF, JPEG, TIF or PNG.

3. Затем нажмите OK, все диаграммы, изображения и фигуры были успешно экспортированы в указанное место. Смотрите скриншоты:

  Демонстрация: Экспорт графики