Как экспортировать диаграммы в графические файлы в Excel?

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

Экспорт диаграммы в графический файл с помощью кода VBA

Экспорт нескольких диаграмм/изображений/фигур в графические файлы с помощью Kutools для 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 для Excel

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

После установки Kutools для Excel выполните следующие действия: (Бесплатная загрузка Kutools для Excel прямо сейчас! )

1. Нажмите Kutools Plus > Импорт / Экспорт > Экспорт Графики, см. скриншот:

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

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

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