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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление диаграммы в Экселе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление диаграммы в Экселе (Макросы/Sub)
Удаление диаграммы в Экселе
bokr Дата: Четверг, 12.09.2019, 14:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Подскажите, плиз, как проконтролировать из VBA удаление диаграммы пользователем в Экселе.

Пробовал так:
Код

        If MyChartObject Is Nothing Then...


- не работает.
 
Ответить
СообщениеПодскажите, плиз, как проконтролировать из VBA удаление диаграммы пользователем в Экселе.

Пробовал так:
Код

        If MyChartObject Is Nothing Then...


- не работает.

Автор - bokr
Дата добавления - 12.09.2019 в 14:16
nilem Дата: Четверг, 12.09.2019, 16:49 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1525
Репутация: 528 ±
Замечаний: 0% ±

Excel 2013
bokr, привет,
попробуйте как-то вот эдак вот
[vba]
Код
Sub ttt()
Dim oChrt

For Each oChrt In ActiveSheet.ChartObjects
    MsgBox oChrt.Name
Next

On Error Resume Next: Err.Clear
Set oChrt = ActiveSheet.ChartObjects("Диаграмма 1")
If Err Then MsgBox "not found 'Диаграмма 1'", 48: Exit Sub
On Error GoTo 0

End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеbokr, привет,
попробуйте как-то вот эдак вот
[vba]
Код
Sub ttt()
Dim oChrt

For Each oChrt In ActiveSheet.ChartObjects
    MsgBox oChrt.Name
Next

On Error Resume Next: Err.Clear
Set oChrt = ActiveSheet.ChartObjects("Диаграмма 1")
If Err Then MsgBox "not found 'Диаграмма 1'", 48: Exit Sub
On Error GoTo 0

End Sub
[/vba]

Автор - nilem
Дата добавления - 12.09.2019 в 16:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление диаграммы в Экселе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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