Удаление диаграммы в Экселе

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление диаграммы в Экселе (Макросы/Sub)

Удаление диаграммы в Экселе

bokr

Дата: Четверг, 12.09.2019, 14:16 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

Код

If MyChartObject Is Nothing Then...

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

Ответить

nilem

Дата: Четверг, 12.09.2019, 16:49 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

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

Ответить

Удаление диаграммы в Экселе (Макросы/Sub)

Страница 1 из 1
1