Как экспортировать диаграммы из Excel в графические файлы?
В Excel иногда требуется создавать диаграммы на основе данных, чтобы визуализировать и представить их более наглядно. Если вы хотите сохранить или экспортировать диаграммы в виде графических файлов для каких-либо целей, как это можно сделать?
Экспорт диаграммы в графический файл с помощью кода VBA
Экспорт нескольких диаграмм/изображений/фигур в графические файлы с помощью Kutools для Excel 
Экспорт диаграммы в графический файл с помощью кода VBA
Следующий код VBA позволяет экспортировать выбранную диаграмму с активного листа в виде изображения. Файл изображения будет сохранён в той же папке, что и книга Excel, к которой применяется этот код. Выполните следующие действия:
1. Выберите диаграмму, которую нужно экспортировать.
2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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 Sub4. Затем нажмите клавишу F5, чтобы запустить код, и введите имя диаграммы для экспорта в появившемся диалоговом окне (см. скриншот):
5. После этого нажмите кнопку ОК, и выбранная диаграмма будет экспортирована в формате GIF и сохранена в том же каталоге, что и исходный файл. См. скриншот:
Приведённый выше код VBA позволяет экспортировать только одну диаграмму за раз. Чтобы экспортировать другую диаграмму, сначала выберите её, а затем запустите экспорт с помощью этого кода.
Экспорт нескольких диаграмм/изображений/фигур в графические файлы с помощью Kutools для Excel
Kutools для Excel’s Экспорт диаграммы позволяет одновременно экспортировать несколько диаграмм, изображений или фигур в Excel.
После установки Kutools для Excel выполните следующие действия: ()Скачать бесплатно Kutools для Excel прямо сейчас!)
1. Нажмите KUTOOLS PLUS > Импорт/экспорт > Экспорт диаграммы, см. скриншот:
2. В диалоговом окне Экспорт диаграммы все диаграммы , изображения и фигуры перечислены в левом списке. Укажите тип объектов, которые необходимо экспортировать, затем нажмите кнопку, чтобы выбрать папку для сохранения экспортируемых диаграмм. Одновременно можно выбрать нужный формат изображений из списка «Формат экспорта», например: 
GIF , JPEG , TIF или PNG .
3. Затем нажмите кнопку ОК — и все диаграммы, изображения и фигуры будут успешно экспортированы в указанное расположение. См. скриншоты:
 |
 |
 |
Демонстрация: Экспорт диаграммы
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек