Как ни странно, Excel не предоставляет возможности напрямую преобразовывать диаграммы в автономные графические файлы, например формата GIF или PNG. В этой статье я представлю три метода сохранения диаграмм Excel в виде графических файлов (один из методов использует макросы VBA).
Этот метод предполагает использование стороннего программного обеспечения, а именно графического редактора. Выберите диаграмму, выполните команду Главная ► Буфер обмена ► Копировать (или нажмите Ctrl+C). Затем получите доступ к документу в вашем графическом редакторе, выбрав команду Правка ► Вставить (или ее эквивалент). Теперь вы можете сохранить файл в любом поддерживаемом программой графическом формате.
Вам, возможно, придется поэкспериментировать, чтобы добиться оптимальных результатов. Например, может понадобиться скопировать диаграмму как рисунок. Для этого выберите диаграмму, а затем выполните команду Главная ► Буфер обмена ► Копировать ► Копировать как рисунок. Если у вас нет графического редактора, попробуйте IrfanView, доступный для скачивания бесплатно на сайте http://irfanview.com.
Для преобразования всех диаграмм книги в файлы PNG сохраните книгу в формате HTML, а затем найдите созданные файлы PNG. Выполните следующие действия.
В первую очередь сохраните книгу в обычном формате Excel. HTML-версию вашей книги следует рассматривать как временную версию книги. Хотя вы можете открыть HTML-файл в Excel, этот формат не позволяет сохранять ключевую информацию, например формулы.
Этот метод использует простой макрос VBA, который сохраняет каждую диаграмму активного листа в формате GIF.
Перед созданием макроса сохраните книгу. Затем нажмите Alt+F11, чтобы запустить Visual Basic. Найдите свою книгу в окне Projects и выберите команду Insert ► Module для вставки нового модуля VBA. Затем введите в модуль следующую процедуру:
1 2 3 4 5 6 7 8 | Sub SaveChartsAsGIF() Dim ChtObj As ChartObject Dim Fname As String For Each ChtObj In ActiveSheet.ChartObject Fname = ThisWorkbook.Path & "" & ChtObj.Name & ".gif" ChtObj.Chart.Export Filename:=Fname. FilterName:="gif" Next ChtObj End Sub |
После того как макрос введен, нажмите Alt+F11, чтобы снова перейти к Excel. Затем активизируйте лист, который содержит ваши диаграммы. Нажмите Alt+F8, чтобы открыть диалоговое окно Макрос. Выберите макрос SaveChartGIF и нажмите кнопку Выполнить. Процедура сохраняет каждую диаграмму в активном листе в виде GIF-файла (название диаграммы используется в качестве имени файла). Файлы хранятся в одной папке с книгой.
Как обеспечить вывод значений выпадающего списка с двоеточием, как в бухгалтерских программах?
Как при помощи инструментов Excel решить задачу о коробке максимального объема
Построение графика функции одной переменной средствами Excel
Как правильно вводить, редактировать и копировать формулы в таблицах Excel
Как в Excel обойтись без подстановки шрифтов при применении малых кеглей