Книга: Excel. Трюки и эффекты
Сохранение диаграммы в отдельном файле
Разделы на этой странице:
Сохранение диаграммы в отдельном файле
После создания диаграммы может возникнуть вопрос – а где ее хранить? Можно использовать для этого листы рабочей книги, а можно сохранить диаграмму в отдельном файле под указанным именем. Например, с помощью приведенного в листинге 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 указывается путь для сохранения и присваивается имя файлу диаграммы.
Оглавление книги
- Построение диаграммы с помощью макроса
- Сохранение диаграммы в отдельном файле
- Построение и удаление диаграммы нажатием одной кнопки
- Вывод списка диаграмм в отдельном окне
- Применение случайной цветовой палитры
- Эффект прозрачности диаграммы
- Построение диаграммы на основе данных нескольких рабочих листов
- Создание подписей к данным диаграммы
- Сохранение информации о пользователях при миграции
- Сохранение информации из Интернета
- Диаграммы прецедентов
- Диаграммы последовательности действий
- Сохранение рабочей книги с именем, представляющим собой текущую дату
- 2. Диаграммы. Виды диаграмм
- Сохранение и использование шаблона узла
- Приложение I Диаграммы взаимовлияния
- Решил сделать дефрагментацию дисков, выполнил анализ диска C:. На рисунке увидел, что зеленый сектор разбит на 18 неболь...
- Правда ли, что можно хранить несколько документов в одном файле?
- Сохранение внесенных изменений
- Сохранение информации в реестре Windows