Сохранение диаграммы в отдельном файле
После создания диаграммы может возникнуть вопрос – а где ее хранить? Можно использовать для этого листы рабочей книги, а можно сохранить диаграмму в отдельном файле под указанным именем. Например, с помощью приведенного в листинге 4.4 макроса диаграмма будет сохранена под именем Диаграмма. gif.
Листинг 4.4. Сохранение диаграммы
Sub SaveChart()
' Сохранение выделенной диаграммы в файл
If ActiveChart Is Nothing Then
' Нет выделенных диаграмм
MsgBox «Выделите диаграмму»
Else
' Сохранение...
ActiveChart.Export ActiveWorkbook.path & «Диаграмма.gif»,
«GIF»
End If
End Sub
Перед запуском макроса сохраняемую диаграмму необходимо выделить – в противном случае при попытке сохранения на экране отобразится окно с сообщением Выделите диаграмму. После применения макроса диаграмма будет сохранена под указанным именем в текущем каталоге.
Однако при сохранении диаграммы может возникнуть необходимость в интерактивном задании имени и расположения файла диаграммы. Для этого можно использовать макрос, код которого приведен в листинге 4.5.
Листинг 4.5. Сохранение диаграммы под указанным именем
Sub InteractiveSaveChart()
Dim strFileName As String ' Имя файла для сохранения
' Проверка, выделена ли диаграмма
If ActiveChart Is Nothing Then
' Нет выделенных диаграмм
MsgBox «Выделите диаграмму»
Else
' Выбор файла для сохранения
strFileName = Application.GetSaveAsFilename( _
ActiveChart.Name & «.gif», «Файлы GIF (*.gif), *.gif», 1, _
«Сохранить диаграмму в формате GIF»)
' Проверка, выбран ли файл
If strFileName <> "" Then
' Сохранение выделенной диаграммы в файл
ActiveChart.Export strFileName, «GIF»
End If
End If
End Sub
Как и в предыдущем примере, перед сохранением диаграмму нужно выделить, иначе появится окно с соответствующим сообщением. После запуска макроса откроется окно Сохранить диаграмму в формате GIF (см. соответствующую строку приведенного выше кода), в котором по обычным правилам Windows указывается путь для сохранения и присваивается имя файлу диаграммы.