Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение в папку с книгой - выделенной диаграммы, как фото - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в папку с книгой - выделенной диаграммы, как фото (Макросы/Sub)
Сохранение в папку с книгой - выделенной диаграммы, как фото
rotten41 Дата: Суббота, 22.04.2017, 20:29 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго времени суток, форумчане. Помогите решить вопрос.

У меня в книге - на листе располагаются диаграммы.
Как макросом - сохранить выделенную диаграмму - в виде jpg-файла в папку с Книгой - при щелчке по кнопке ?

Иными словами - я выделяю диаграмму, щелкаю по кнопке - и эта диаграмма тут же сохраняется под именем своего названия - то есть ("Диаграмма 2" или "Диаграмма 3")
Главный критерий здесь - сохранение именно выделенной диаграммы.
К сообщению приложен файл: 73-312.xls (36.0 Kb)
 
Ответить
СообщениеДоброго времени суток, форумчане. Помогите решить вопрос.

У меня в книге - на листе располагаются диаграммы.
Как макросом - сохранить выделенную диаграмму - в виде jpg-файла в папку с Книгой - при щелчке по кнопке ?

Иными словами - я выделяю диаграмму, щелкаю по кнопке - и эта диаграмма тут же сохраняется под именем своего названия - то есть ("Диаграмма 2" или "Диаграмма 3")
Главный критерий здесь - сохранение именно выделенной диаграммы.
Автор - rotten41
Дата добавления - 22.04.2017 в 20:29
nilem Дата: Воскресенье, 23.04.2017, 07:10 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
[vba]
Код
Sub ttt()
If ActiveChart Is Nothing Then Exit Sub
ActiveChart.Export ThisWorkbook.Path & "\" & ActiveChart.Name & ".png" 'gif
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение[vba]
Код
Sub ttt()
If ActiveChart Is Nothing Then Exit Sub
ActiveChart.Export ThisWorkbook.Path & "\" & ActiveChart.Name & ".png" 'gif
End Sub
[/vba]
Автор - nilem
Дата добавления - 23.04.2017 в 07:10
rotten41 Дата: Воскресенье, 23.04.2017, 13:29 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 163
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem, работает. Спасибо.
 
Ответить
Сообщениеnilem, работает. Спасибо.
Автор - rotten41
Дата добавления - 23.04.2017 в 13:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение в папку с книгой - выделенной диаграммы, как фото (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!